PREENCHER CHEQUES EM FORMULARIO CONTINUO

USUARIO.EXCLUIDOS 20/12/2006 18:39:34
#191295
Valeu galera pelo apoio do Tópico anterior me ajudaram muito.
Agora estou com um problema bem grande
Alguem tem um exemplo ou formula para preencher cheques em formulário comtinuo?
grato mais uma vez
USUARIO.EXCLUIDOS 20/12/2006 20:55:22
#191309
cara, tu conhece o comando Printer???
USUARIO.EXCLUIDOS 21/12/2006 08:00:31
#191350
caro amigo eu conheço , mais acontece que poderia ter alguma função ou componete pronto para se fazer isto, e eu estaria reeventando a roda.
Como eu sei que no VbMania nós temos amigos pra toda boa obra, então vim atraves para checar,mais de qualquer forma obrigado pela dica.
HUGOSSOUZA 21/12/2006 08:36:23
#191364 Resposta escolhida
coloquei isso em um outro tópico...
http://www.vbmania.com.br/vbmania/vbmforum.php?varMethod=Abrir&varID=190142
ve se te ajuda...


'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
Tópico encerrado , respostas não são mais permitidas
Voltar