Impress�o Cheques (VDOPrinter)

Question

Pessoal,Estou utilizando o VDOPrinter para fazer um programinha de emiss�o de cheques em formul�rio continuo. Estou com 2 duvidas em rela��o ao componente e se for poss�vel, gostaria de uma ajuda.� o ...

Thalesoli · Answer

Voc� por acaso contou a quantidade de linhas q cada folha de cheque tem?

se contou, configure na propriedade Paper a propriedade Lines com este valor.

ai dar� certo o salto da folha.

espero ter ajudado

falow

Leandrosl · Answer

Ok [b:f4e50f38a0]thalesoli[/b:f4e50f38a0], sua dia ajudou muito, agora ele n�o est� saltando para uma outra pagina. Mas ainda continuo com o problema para saltar entre um cheque e outro, no final do for estou colocando um NewLine(9), mas acontece que a partir do segundo em diante, os cheques n�o ficam alinhados, apenas o primeiro. Tentei colocar o NewLine(8) mas acontece a mesma coisa, por acaso n�o existe uma outra forma ?

Thalesoli · Answer

nao me lembro qual o comando q faz mas as impressoras matriciais tem um comando chamando tear off q coloca o papel no ponto para corte. ai vc tem q pressionar novamente o tear off da impressora para realinhar o papel..

de uma olhada na net.. mas ate onde eu usei.. se vc contar as linha qvc necessita, e pressionar o tear off da propria impressora, n�o da erro nao.

falow

Microbios · Answer

LeandroSl,

Eu tenho um programinha que imprime cheques usando o VDO!!!
(falando nisso, cad� o VIN�CIUUUSSS!? :P :P )

Eu fiz somando linhas ao final de cada cheque para a impress�o no segundo e assim consecutivamente... no meu a impressora n�o pula a p�gina como voc� citou. Vai direto at� acabar, da� sim.. dar o TEAR OFF que o colega citou...

O exemplo, n�o � nada GENIAL mas pra mim funcionou 100�

{Coloca a Tabela no Primeiro Registro} dmD.tblCheques.First; With dmD.Prn do begin {Informa ao Spool do Windows o T�tulo do Relat�rio} Title := �Emiss�o dos Cheques�; {In�cio de Impress�o Em Modo DOS} BeginDoc; While not dmD.tblCheques.Eof do begin dmD.MudaSalto(2);{LineSpacing := ls8lpp} dmD.MudaFonte(4); Print(60,Format(��M�,[dmD.tblCheques.FieldByName(�ValorCheque�).AsCurrency]),True); dmD.Prn.NewLine(1); dmD.MudaFonte(2); {fsCondensed;} Print(10,Copy(dmD.tblCheques.FieldByName(�Favorecido�).AsString,0,16),false); cExtenso := Extenso(dmD.tblCheques.FieldByName(�ValorCheque�).AsCurrency,200); cExtenso1 := Copy(cExtenso,0,87); cExtenso2 := copy(cExtenso,113,100); Print(45,cExtenso1,True); dmD.Prn.NewLine(1); Print(32,cExtenso2,True); dmD.Prn.NewLine(1); dmD.MudaFonte(1); dmD.Estilo(2); Print(19,dmD.tblCheques.FieldByName(�Favorecido�).AsString,True); dmD.Estilo(1); {[]} dmD.MudaFonte(2); {fsCondensed;} Print(10,dmD.tblCheques.FieldByName(�DataEmissao�).AsString,False); dmD.Prn.NewLine(2); dmD.MudaFonte(1); Print(43,�S�o Jo�o Nepomuceno, �,False); Print(60,IntToStr(Dia),False); Print(65,MesExtenso(Mes,False),False); Print(77,IntToStr(Ano),True); dmD.MudaFonte(2); {fsCondensed;} dmD.Prn.NewLine(7); Print(10,Format(��M�,[dmD.tblCheques.FieldByName(�ValorCheque�).AsCurrency]),True); dmD.Prn.NewLine(6); dmD.tblCheques.Next; If dmD.tblCheques.Eof then begin dmD.Prn.EndDoc(); dmD.MudaSalto(1); {Prn.LineSpacing := ls6lpp;} end; end; end;

F�rum Impress�o Cheques (VDOPrinter) #350772