Fireboard

Boa tarde colega, só mais uma coisa, sua impressora é a LX-300 ou a LX-300 +? Há diferença entre as duas na configuração Tive um problema parecido com o seu no meu trabalho, daí fiz o seguinte: através do setup da impressora alterei para OFF o salto da impressora, se não me engano é a opção ALT TEER OFF (ou algo parecido, você pode escolher o idioma que deseja visualizar as opções do setup). Se esta opção estiver configurada como ON então ocorre salto da impressora. Os saltos das linhas fiz através do meu programa para que quando terminasse a impressão fossem saltadas a quantidade exata de linhas para o destaque do papel. A única desvantagem é que na próxima impressão o cabeçalho do papel fica com uma ou duas linhas em branco, mas compensa em relação a perda de papel com o salto da impressora ativado. Dê uma olhada neste site: http://www.suporte-epson.com.br/ . Nele você pode baixar o manual da impressora LX-300 e seguir passo-a-passo a configuração do setup. Um abraço

Mesmo assim não filtrou os dados, coloquei abaixo a rotina inteira, o que poderá ser ? Dim x As Date Private Sub cmdretornar_Click() Unload frmccacvcto End Sub Private Sub Command1_Click() atualiza_lista (x) End Sub Public Function atualiza_lista(x As Date) On Error Resume Next Set bdlocacao = OpenDatabase(App.Path & "\entulho.mdb") Set tbloca = bdlocacao.OpenRecordset("locacao", dbOpenTable) Set tbcliente = bdlocacao.OpenRecordset("clientes", dbOpenTable) tbloca.index = "indlocvcac" Set SQL = "select * from tblocacao where DateValue(dtvcto) = DateValue('" & x & "')" Do While tbloca.EOF = False tbcliente.index = "indcli" tbcliente.Seek ("="), tbloca("codcli") If tbcliente.NoMatch = False Then Set newitem = lstv2.ListItems.Add(, , tbcliente("nome")) newitem.SubItems(1) = " " & Format(tbcliente("fone"), "####-####") newitem.SubItems(2) = " " & (Format(tbcliente("endereco"), 38)) newitem.SubItems(3) = " " & Left(tbcliente("bairro"), 38) Else Set newitem = lstv2.ListItems.Add(, , tbloca("codcli")) End If newitem.SubItems(4) = " " & (Format(tbloca("valor"), "standard")) newitem.SubItems(5) = " " & (Format(tbloca("datavcac"), "dd/mm/yyyy")) tbloca.MoveNext Loop End Function Private Sub txt1_keypress(keyascii As Integer) If keyascii = 13 Then If IsDate(txt1.Text) Then x = txt1.Text SendKeys "{tab}" keyascii = 0 Else txt1.SetFocus txt1.SelStart = 0 txt1.SelLength = Len(txt1.Text) End If End If End Sub Obrigado

Valeu moçada, eu tava procurando rotinas de como gerar códigos de barra. Este link me ajudou muito! Muito Obrigado

set sql = dataenvironment1.connection1.execute("select * from tblocacao where DateValue(dtvcto) = DateValue('" & xdata & "')") Ainda não deu certo, substitui o comando set sql por um objeto data1, depois de executada esta linha, executo o comando data1.refresh e chamo um objeto listview e faço um loop para exibir os dados filtrados, mas são exibidos todos os registros da tabela. O que poderá ser?

Colegas, estou com o seguinte problema no windows 98: Utilizo uma impressora fiscal da marca Sweda, ele está conectada na porta COM1, mas esta porta não reconhece a impressora, o micro somente reconhece se eu faço o seguinte: excluo a porta com1 no painel de controle, reinicio o micro, o windows reinstala a porta com1, daí a impressora funciona, mas se eu desligar o micro e ligar novamente, volto para o problema. Também tem outra situação: isto acontece somente em micros mais novos como Celeron, Atlhon, etc, se eu utilizar um AMD k6-2 400Mhz, por exemplo, este problema não acontece, a impressora funciona normalmente. Pesquisei em vários sites, mas não encontrei nada que falasse disso, conversei com colegas do ramo e me disseram que é um problema do windows 98 que, devido as configurações mais modernas das placas mãe atuais reconhece na porta COM1 somente o mouse e não a impressora, e também me disseram que o software da impressora Sweda, para quem utiliza um programa feito em ambiente DOS para utilização da impressora não foi atualizado pela Sweda, somente foi atualizado para quem imprime em ambiente visual. Vocês pode me ajudar? Muito Obrigado

OK, obrigado, resolvi este problema, mas, tenho outro. Uso a seguinte instrução: set sql = dataenvironment1.connection1.execute (" select * from tblocacao where dtvcto = ' & xdata & " ' " ) Determinei para que sejam exibidos no relatório somente os registros que tenham a data igual a "xdata", mas quando é exibido o relatório, todos os registros do meu banco de dados são exibidos e não somente os iguais a variavel xdata. No que posso estar errando? Muito Obrigado

Há como eu saber se está aberto ou não? Quando abro o programa e chamo este relatório sem abrir qualquer outra parte do programa é exibido este erro de que não está aberto, mas se chamo outro relatório antes desse e depois chamo este relatório é exibida uma outra mensagem de erro, diferente desta. O quê poderá ser? Obrigado

Em meu formulário criei um menu com várias opções de consulta. Cada opção deve filtrar os dados de acordo com o campo específico da minha tabela. Exemplo: Quero filtrar os campos com data de vencimento = 10/09/2005, fiz o seguinte: set sql = dataenvironment1.connection1.execute (" select * from tblocacao where dtvcto = ' & xdata & " ' " ) xdata é a variável que recebe o valor digitado pelo usuário; tblocacao é a tabela do banco de dados Quando executo esta linha é exibida a mensagem: Run Time Error ' 3704 ': Operação não permitida quando o objeto está fechado. Alguém pode mer dizer no que estou errando? Muito Obrigado

Criei um relatório no Data Report, mas está acontecendo o seguinte: Suponha que eu tenho 1 registro no meu banco de dados, se eu chamar o relatório é exibido o item, mas, se eu saio do relatório e insiro novos itens e na sequência chamo o relatório novamente, só é exibido o item que eu já tinha cadastrado e não os novos itens cadastrados. Só é exibido se eu fecho o programa e abro novamente. Há como eu corrigir isso? Obrigado

Você verificou a configuração da Impressora? Quando você liga ela com a tecla pause pressionada, é impresso as configurações da LX-300. Nela contém o salto da impressora, tamanho do papel, etc. Dê uma verificada nestes itens. O problema pode estar aí.

E para chamar esta Dll no meu form, eu apenas a chamo pelo nome (no form_load) ou o correto é chamá-la dentro de uma sub ou por algum parâmetro? Obrigado

Consegui registrá-la e referenciá-la, mas mesmo assim continua dando o erro. O que pode ser ? Será que o modo como chamo a DLL no Form está errado ? Obrigado

Se entendi direito, você quer que a máscara fique neste formato (____-____) quando o objeto não estiver com o foco? Se for isso você pode deixar definido a propriedade masK como ____-____ e quando o objeto ganhar o foco você mudar a mask para ####-#### É isso ?

Para calcular a idade você pode usar essa função: Private Function calcula_idade(nascimento As Date) As String Dim dias As Single Dim anos As Integer Dim meses As Integer Dim resto As Integer dias = DateDiff("d", CVDate(nascimento), Now) anos = Int(dias / 365) resto = dias Mod 365 meses = Int(resto / 30) dias = resto Mod 30 calcula_idade = anos & " anos " & meses & " mes(es) End Function ----------------------------- Você está querendo inserir a foto dos alunos no BD, você está usando o Access? Se você estiver, insira um campo tipo Objeto OLE e no VB você pode utilizar um objeto OLE para exibir as fotos do seu Banco de Dados -------------------------------- Quando você vai fazer o cadastro de atividades de um aluno, você pode fazer o seguinte: Primeiro você selecionará a atividade e depois o aluno ? Neste caso talvez seria interessante você listar os nomes dos alunos em um combo ou em uma listbox. Depois de selecionado o nome em um destes objetos, você pode fazer uma função que procure o código do aluno e guarde este código em um campo da tabela de matrícula do aluno, algo +ou- assim: tbaluno.seek ("="), nomedoaluno if tbaluno.nomatch = false then variavel = tbaluno("codigo") end if ' O nome selecionado na listbox ou combo será armazenado na variável ou no campo do seu Banco de Dados.

Na propriedade masK digite: ####-#### Você pode definir uma máscara de entrada usando os seguintes caracteres. 0 » Dígito (de 0 a 9, entrada requerida, sinais de mais (+) e menos (-) não permitidos). 9 » Dígito ou espaço (entrada não requerida, sinais de (+) e menos (-) não permitidos). # » Dígito ou espaço (entrada não requerida, os espaços são exibidos como vazios enquanto os dados são editados, mas são removidos quando perde o foco, sinais de mais e menos permitidos). L » Letra (de A a Z, entrada requerida). ? » Letra (de A a Z, entrada opcional). A » Letra ou dígito (entrada requerida). A » Letra ou dígito (entrada opcional). & » Qualquer caractere ou espaço (entrada requerida). C » Qualquer caractere ou um espaço (entrada opcional). , . : ; - / » Marcador de posição decimal e separadores de milhares, de data e de hora. (O caractere realmente usado depende das configurações do Painel de Controle do Windows). < » Faz com que todos os caracteres sejam convertidos para minúsculos. > » Faz com que todos os caracteres sejam convertidos para maiúsculos. \ » Faz com que o caractere seguinte seja exibido literalmente (por exemplo, \A é exibido simplesmente como A).

CKorneLL, qual é a referência para essa DLL? Obrigado

Colegas, por favor, me tirem uma dúvida: Criei uma DLL na opção Active Document Dll - Class module, declarei a propriedade Instancing como Global mult use: private sub teste() ... end sub Salvei como teste. chamo esta DLL no form pelo nome que salvei: Teste É exibida uma mensagem de erro: Sub or Function not defined. Estou chamando de forma errada a DLL? Obrigado

Colega, no caso de datas faça o seguinte: lbldata=DateDiff(interval, date1, date2) Calcula a diferença entre datas Exemplo: lbldata = DateDiff(d, Now, "12/05/96") Obs.: lbldata seria a sua label --------------- Combobox cboprofessores.additem "tbprofessores("nome") ' estou utilizando no método DAO ' tbprofessores (nome da sua tabela) ' ("nome") campo que contém o nome da sua tabela Algumas propriedades da combo: Style: Escolhe o tipo de Caixa de Combinação que será usado no formulário: 0 - Dropdown Combo: é a opção padrão do Objeto. Aqui pode-se digitar qualquer nome na área de digitação, clicar a seta para baixo e escolher qualquer um dos itens que ele será automaticamente inserido na área de texto. 1 - Simple Combo: Caixa de Combinação simples. Aparece em destaque a área de edição de texto, onde podemos digitar algum item; ou selecionar qualquer um que esteja na caixa de lista, que será inserido na área de texto. O botão em forma de seta para baixo não existe neste tipo de ComboBox. Se aumentarmos o tamanho da Caixa de Combinação na vertical, aparecerá a lista e esta ficará fixa. Caso deixamos ela somente do tamanho da área de texto, então a lista não aparecerá, e se quisermos saber quais nomes existe teremos que apertar no teclado a seta para baixo ou para cima, para que os itens existentes dentro da Lista apareçam. 2 - Dropdown List: Neste tipo de Caixa de Combinação o usuário pode somente escolher um item relacionado na lista, não podendo digitar nada. A área de texto não aceitará digitação. Text: Nesta propriedade digita-se um texto que ficará, como padrão, fixo na área de texto na caixa de combinação. Geralmente deixa-se em branco. Pode-se usar essa propriedade também, em tempo de execução, para saber qual texto o usuário digitou ou selecionou. ----------------------------- Para utilizar o DBRIG consulte http://www.macoratti.net/vb_dbgt2.htm . Você poderá obter informações detalhadas. Sou novato em VB, mas espero poder ter ajudado Um abraço

Colega, verifique no site abaixo, há diversos links que falam da linguagem pascal, talvez algum dos links do site possam lhe ajudar. http://www.netlinks.com.br/programa.htm#pascal

Colega, também não sei se isso é possível. Pesquisei em várias apostilas e sites, mas não encontrei nada que falasse de como fazer esse alinhamento. Eu também gostaria de saber como fazer isso, caso alguém saiba por favor me ensine. Obrigado

Imprimir um relatório feito no Microsoft Access Não esqueça de fazer a referência a biblioteca-Microsoft Access X.0 Object Library-no seu projeto. Você tem que abrir o banco de dados Access e pode escolher se deseja visualizar ou não a impressão. Private Sub Command1_Click() Dim ac As Access.Application Set ac = New Access.Application ac.OpenCurrentDatabase ("c:\teste\SeuBancoAccess.mdb") ' Para visualizar a impressão descomente a linha abaixo ' ac.Visible = True ' e substitua o valor acViewNormal por acViewPreview na linha de código abaixo para visualizar a impressora ac.DoCmd.OpenReport "Catalog", acViewNormal ' e exclua a linha a baixo para visualizar a impressão ac.CloseCurrentDatabase End Sub

Consulte o site http://www.macoratti.net/dat_rpt2.htm Nele você encontrará informações de como gerar relatórios.

Colegas, por favor, há como excluir os dados de um banco de dados (Access) com apenas um comando? Gostaria de mais uma informação: Gerei um relatório no Data Report, mas o relatório exibe todo o conteúdo da tabela do banco de dados. Eu gostaria de exibir apenas um conteúdo específico. Estou utilizando o método DAO e o Banco de dados foi feito no Access, criei um formulário pedindo o intervalo de datas, mas não sei como filtrar estes dados para exibir no Data Report, e, onde devo jogar a rotina para filtrar os dados. Devo jogar a rotina para filtrar os dados no formulário que criei para pedir a data ou no próprio Data Report? Obrigado

As propriedades principais do Printer são: ColorMode: Determina ou mostra a capacidade de impressão colorida do dispositivo. Copies: Especifica a quantidade de cópias de uma página que deve ser impressa. CurrentX: Determina a coordenada horizontal que a impressora irá imprimir. CurrentY: Determina a coordenada vertical que a impressora irá imprimir. DeviceName: Mostra o nome da impressora padrão suportada pelo dispositivo FontName: Determina qual fonte de letra a impressora usará para impressão. FontBold: Determina se a fonte será em negrito. FontItalic: Determina se a fonte será em itálico. Fonts: Fornece uma lista de todas as fontes disponíveis para impressão. FontSize: Determina o tamanho que a fonte de letra escolhida usará. FontUnderline: Determina se a fonte será sublinhada. Orientation: Determina a orientação do papel: Retrato ou Paisagem. Usamos as constantes para definir o tipo escolhido: vbPRORPortrait 1 Retrato vbPRORLandscape 2 Paisagem Page : Retorna o número da página que esta sendo impressa. PaperSize: Determinamos o tamanho do papel. Podemos usamos as seguintes constantes: vbPRPSLetter 1 Letter, 8 1/2 x 11 in. VbPRPSLetterSmall 2 Letter Small, 8 1/2 x 11 in. VbPRPSTabloid 3 Tabloid, 11 x 17 in. VbPRPSLedger 4 Ledger, 17 x 11 in. VbPRPSLegal 5 Legal, 8 1/2 x 14 in. VbPRPSStatement 6 Statement, 5 1/2 x 8 1/2 in. VbPRPSExecutive 7 Executive, 7 1/2 x 10 1/2 in. vbPRPSA3 8 A3, 297 x 420 mm vbPRPSA4 9 A4, 210 x 297 mm vbPRPSA4Small 10 A4 Small, 210 x 297 mm vbPRPSA5 11 A5, 148 x 210 mm vbPRPSB4 12 B4, 250 x 354 mm vbPRPSB5 13 B5, 182 x 257 mm vbPRPSFolio 14 Folio, 8 1/2 x 13 in. VbPRPSQuarto 15 Quarto, 215 x 275 mm vbPRPS10x14 16 10 x 14 in. vbPRPS11x17 17 11 x 17 in. VbPRPSNote 18 Note, 8 1/2 x 11 in. vbPRPSEnv9 19 Envelope #9, 3 7/8 x 8 7/8 in. vbPRPSEnv10 20 Envelope #10, 4 1/8 x 9 1/2 in. vbPRPSEnv11 21 Envelope #11, 4 1/2 x 10 3/8 in. vbPRPSEnv12 22 Envelope #12, 4 1/2 x 11 in. vbPRPSEnv14 23 Envelope #14, 5 x 11 1/2 in. VbPRPSCSheet 24 C size sheet vbPRPSDSheet 25 D size sheet vbPRPSESheet 26 E size sheet vbPRPSEnvDL 27 Envelope DL, 110 x 220 mm vbPRPSEnvC3 29 Envelope C3, 324 x 458 mm vbPRPSEnvC4 30 Envelope C4, 229 x 324 mm vbPRPSEnvC5 28 Envelope C5, 162 x 229 mm vbPRPSEnvC6 31 Envelope C6, 114 x 162 mm vbPRPSEnvC65 32 Envelope C65, 114 x 229 mm vbPRPSEnvB4 33 Envelope B4, 250 x 353 mm vbPRPSEnvB5 34 Envelope B5, 176 x 250 mm vbPRPSEnvB6 35 Envelope B6, 176 x 125 mm vbPRPSEnvItaly 36 Envelope, 110 x 230 mm vbPRPSEnvMonarch 37 Envelope Monarch, 3 7/8 x 7 1/2 in. vbPRPSEnvPersonal 38 Envelope, 3 5/8 x 6 1/2 in. vbPRPSFanfoldUS 39 U.S. Standard Fanfold, 14 7/8 x 11 in. vbPRPSFanfoldStdGerman 40 German Standard Fanfold, 8 1/2 x 12 in. vbPRPSFanfoldLglGerman 41 German Legal Fanfold, 8 1/2 x 13 in. vbPRPSUser 256 User-defined

\ Divisão. Resultado será um número inteiro ^ Exponenciação Mod Resto da Divisão ABS: Retorna sempre um valor positivo (absoluto). VariávelNumérica = Abs(Expressão numérica) Print Abs(-45) Valor Impresso: 45 ATN: Retorna o arco-tangente de um número. VariávelNumérica = Atn(Expressão numérica) COS: Calcula o cosseno de um ângulo VariávelNumérica = Cos(<expressãoNumérica>) FIX: Retorna a parte inteira de um número, ignorando as casas decimais, se houver. Não faz arredondamento VariávelNumérica = Fix(<expressãoNumérica>) Print Fix(145.87) Valor Impresso: 145 Print Fix(-145.87) Valor Impresso: -145 HEX: Retorna a representação hexadecimal de um número decimal. VariávelNumérica = Hex(<expressãoNumérica>) INT: Retorna a parte inteira de um número, ignorando as casas decimais, se houver. Não faz arredondamento. Se o argumento for um número negativo será incrementado em um. VariávelNumérica = INT(<expressãoNumérica>) Print Int(145.87) Valor Impresso: 145 Print Int(-145.87) Valor Impresso: -146 LOG: Calcula o logaritmo natural de um número VariávelNumérica = LOG(<expressãoNumérica>) RND: Retorna um número randômico, ou seja, escolhe um número aleatoriamente. VariávelNumérica = Rnd[(<expressãoNumérica>)] SGN: Retorna -1 se o argumento for um número negativo, e 1 se for um número positivo. VariávelNumérica = Sgn(<expressãoNumérica>) SIN: Calcula o seno de um ângulo. VariávelNumérica = Sin(<expressãoNumérica>) SQR: Calcula a raiz quadrada de um número. VariávelNumérica = Sqr(<expressãoNumérica>) TAN: Calcula a tangente de um ângulo. VariávelNumérica = Tan(<expressãoNumérica>) Funções de conversão CBOOL: Converte uma expressão para um valor lógico (True ou false). Se o argumento for um zero, retornará False, caso contrário será True. VariávelLógica = CBool(<expressão>) Print Cbool(43) Valor Impresso: True Print Cbool(0) Valor Impresso: False Print Cbool(4 = 6) Valor Impresso: False. O resultado da comparação não é verdadeira. CBYTE: Converte uma expressão para um tipo Byte. VariávelByte = cbyte(<expressão>) Print Cbyte(155.56) Valor Impresso: 156 Print Cbyte(355.56) Erro. Overflow. Expressões do tipo byte não podem ser maior que 255. CCUR: Converte uma expressão numérica para um tipo-moeda. VariávelCurrency = Ccur(<expressão numérica>) Print Ccur(120) Valor Impresso: 120 CDBL: Converte uma expressão numérica em um número de ponto flutuante de precisão dupla. VariávelNumérica = Cdbl(<expressão numérica>) CINT: converte uma expressão numérica em um número inteiro. Faz arredondamento. VariávelNumérica = CInt(<expressão numérica>) Print CInt(45.40) Valor Impresso: 45 Print CInt(45.60) Valor Impresso: 46 CLNG: Converte uma expressão numérica em um número inteiro longo. VariávelNumérica = CLng(<expressão>) VariávelNumérica = CLng(<expressão numérica>) Print Clng(45.40) Valor Impresso: 45 Print Clng(45.60) Valor Impresso: 46 A diferença entre a função CINT e CLNG é a abrangência da própria variável. CSNG: Converte uma expressão numérica em um número de ponto flutuante de precisão simples. VariávelNumérica = CSng(<expressão >) CSTR: Converte uma expressão numérica, data ou outra em uma string (texto). VariávelString = CStr(<expressão>) Print Cstr(452) Valor Impresso: 452 CVAR: Converte uma expressão de qualquer tipo para o tipo variante. VariávelVariant = Cvar(<expressão>) STR: Converte um valor numérico para o tipo String (texto). Valido somente para argumentos numéricos. VariávelString = Str(<expressãoNumérica>) Print Str(452) Valor Impresso: 452 VAL: Converte uma String com caracteres numéricos em uma variável númerica. VariávelNumérica = Val(<stringNumérica>) Print Var(“003”) Valor Impresso: 3 Print Var(“123”) Valor Impresso: 123