PREENCIMENTO DE CHEQUES

ADILSOO 22/09/2012 13:00:06
#410242
Boa tarde gente, gostaria de saber como faço pra imprimir cheques em formulário continuo através de uma impressora matrixial, até achei um exemplo aqui no amigo HUGOSSOUZA , mas nao consegui testar pois meu not não tem uma porta serial/paralela que eu possa testar, acho que a primeira coisa seria como eu poderia testar no meu not?

 [ô]loop para imprimir o total de cheques que você precisa
For A = 1 To TotalCheques

[ô]imprimo direto na lpt1.. mas pode colocar o caminho da rede tbm ou
[ô]verificar as impressoras instaladas
Open [Ô]lpt1:[Ô] For Output As #1

[ô]aqui eu defino qual o tamanho do espaçamento
[ô]48 = 1/8  - inch line spacing
[ô]49 = 7/72 - inch line spacing
[ô]50 = 1/6  - inch line spacing
Print #1, Chr(27); Chr(48);
[ô]53 espaços pra chegar até a posição do valor e imprimo o valor
Print #1, Space(53) & Format$(Format$(ValorD, [Ô]#,##0.00[Ô]), [Ô]@@@@@@@@@@@@@[Ô])
[ô]aqui vou pular linhas pra chegar até a linha de preenchimento do valor
Print #1, [Ô][Ô]
Print #1, [Ô][Ô]

[ô]9 espaços pra começar a imprimir o valor do cheque por extenso
[ô]chr(15) select condensed mode
[ô]chr(18) cancel condensed mode
Print #1, Space(9); Chr(15); valorExt; Chr(18)
Print #1, [Ô][Ô]
[ô]continuação do valor por extenso
Print #1, Chr(15); valorExt2; Chr(18)
Print #1, [Ô][Ô]
[ô]nome do favorecido
Print #1, [Ô] [Ô]; Chr(15); favorecido; Chr(18)
Print #1, [Ô][Ô]


Print #1, Space(36); Chr(15); [Ô]Sao Paulo[Ô]; Chr(18);
Print #1, Space(6); Chr(15); Day(DataD); Chr(18);
Print #1, Space(12); Chr(15); Left((monthname(DataD) + Space(9)), 9); 
Print #1, Space(8); Chr(15); Format(Year(DataD), [Ô]0000[Ô]); Chr(18)
[ô]esse monte de espaços é pra pular para o outro cheque
Print #1, [Ô][Ô]
Print #1, [Ô][Ô]
Print #1, [Ô][Ô]
Print #1, [Ô][Ô]
Print #1, [Ô][Ô]
Print #1, [Ô][Ô]
Print #1, [Ô][Ô]
Print #1, [Ô][Ô]
Print #1, [Ô][Ô]
Print #1, [Ô][Ô]
Print #1, [Ô][Ô]
Print #1, [Ô][Ô]
Print #1, [Ô][Ô]
Print #1, [Ô][Ô]

Close #1

Next


O tópico é ---> ESSE AQUI <---
FEDERHEN 24/09/2012 08:16:31
#410313
O nais dificil voce ja conseguiu, que é a rotina de impressão...
Agora só precisa adaptar ao seu projeto.

Quanto ao teste de impressão, você pode testar por rede ou então vai ter que ser numa máquina que tem porta paralela.
NILSONTRES 24/09/2012 08:24:34
#410315
Tem uns topicos aqui no forum sobre matricial via USB.
Mas a principio , compartilhe a impressora e chame assim:
[ô]Ao invés de:
Open [Ô]lpt1:[Ô] For Output As #1
[ô]Faça
Open [Ô]\\host
omedaimpressoracompartilhada[Ô] For Output As #1
Tópico encerrado , respostas não são mais permitidas
Voltar