PREENCHIMENTO DE CHEQUES
Bom dia Pessoal ...
Procurei na comunidade e não achei nada ... lembro que antes havia diversos códigos espalhados pelo site ....
Alguem tem um fonte / aplicação ... de preenchimento de Cheques e impressão ?
Abraços ....
Procurei na comunidade e não achei nada ... lembro que antes havia diversos códigos espalhados pelo site ....
Alguem tem um fonte / aplicação ... de preenchimento de Cheques e impressão ?
Abraços ....
Mas como vc quer imprimir? Em impressora de cheque ou em impressora comum.
Qdo vc compra uma impressora de cheque ela ja vem com exemplos em varias linguagens inclusive VB.
Qdo vc compra uma impressora de cheque ela ja vem com exemplos em varias linguagens inclusive VB.
Elton,
Tudo bom ?
Cara eu deveria ter explicado mais ...
Na verdade o volume de cheques preenchidos é fora do normal ....
A maquinha de preenchimento por unidade não atenderia devido ao fluxo ...
Fiz contato com o Banco e eles forneceriam Folhas de Cheques em Papel Continuo ...
Neste caso, utilizariamos uma impressora matricial ....
Ai eu queria um fonte que tivesse ja as formatações de folhas de cheques ... ai faltaria apenas fazer a comunicação com a minha base de dados SQL.
Só pra ter uma idéia ... eu tenho uma volume de 350 cheques diarios ....
Abraços ...
Tudo bom ?
Cara eu deveria ter explicado mais ...
Na verdade o volume de cheques preenchidos é fora do normal ....
A maquinha de preenchimento por unidade não atenderia devido ao fluxo ...
Fiz contato com o Banco e eles forneceriam Folhas de Cheques em Papel Continuo ...
Neste caso, utilizariamos uma impressora matricial ....
Ai eu queria um fonte que tivesse ja as formatações de folhas de cheques ... ai faltaria apenas fazer a comunicação com a minha base de dados SQL.
Só pra ter uma idéia ... eu tenho uma volume de 350 cheques diarios ....
Abraços ...
Olá Amigo !Eu lhe indicaria uma solução bem simples, funciona até sem programação..
..se vc tem uma impressora inkjet (tipo a BJC 1000) a qual tem bandeja, vc pode colocar os cheques (folhas) e fazer uma "matriz" em Doc mesmo, com as posições correpondentes aos campos do cheque e manda-los imprimi-los normalmente...
..outra opção é vc comprar uma impressora própria para cheques (que é bem mais rápida e já vem com o software para a impressão das mesmas)... ..o custo destas é em torno de R$ 1000,00...
Veja Aqui ou Aqui
à ¨ isso ai !
Um Abraço !
..se vc tem uma impressora inkjet (tipo a BJC 1000) a qual tem bandeja, vc pode colocar os cheques (folhas) e fazer uma "matriz" em Doc mesmo, com as posições correpondentes aos campos do cheque e manda-los imprimi-los normalmente...
..outra opção é vc comprar uma impressora própria para cheques (que é bem mais rápida e já vem com o software para a impressão das mesmas)... ..o custo destas é em torno de R$ 1000,00...
Veja Aqui ou Aqui
à ¨ isso ai !
Um Abraço !
olha como eu faço..
'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
DOMLOAD, não entendi o que você quis dizer com uma matriz em "DOC" mas tudo bem....
Amigo, se eu entendi, você quer imprimir, em cheque, usando uma impressora matricial, você já tentou usar o Componente Visual ReportX ?????
Baixa ele aqui:
http://www.joinbit.com/reportx/download.asp
Agora, se este componente não der certo, que eu acho muito improvavel, volte a postar...
E me avise com uma MP.
Falow... T+
Amigo, se eu entendi, você quer imprimir, em cheque, usando uma impressora matricial, você já tentou usar o Componente Visual ReportX ?????
Baixa ele aqui:
http://www.joinbit.com/reportx/download.asp
Agora, se este componente não der certo, que eu acho muito improvavel, volte a postar...
E me avise com uma MP.
Falow... T+
o Amigo HUGOSSOUZA já usou um código mais Puro, Muito Bom. Mas se quer ter um pouco menos de trabalho (he he...), use o Componente que eu indiquei, vai sar mais facil até para a visualização....
Falow... T+
Falow... T+
O problema e q cada banco tem um padrao de cheque, ou seja, as medidas variam de um banco p outro.
por isso q no meu eu ja coloquei as medidas dos espaçamentos
ai é só ele ajustar
'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 spacingai é só ele ajustar
Ola...
Vou Colocar em anexo as configurações que utilizo, para preencher cheques (Bradesco) em formulario continuo fornecido pelo banco...
veja as medidas são em polegadas..
Espero que ajude...
Boa sorte
Vou Colocar em anexo as configurações que utilizo, para preencher cheques (Bradesco) em formulario continuo fornecido pelo banco...
veja as medidas são em polegadas..
Espero que ajude...
Boa sorte
Tópico encerrado , respostas não são mais permitidas