Fórum Impressão em bobina #280194

passe para a impressão direta com writeln()

Caro colega,

Será q posso te pedir q me ensine a fazer essa impressão direta para a impressora....
Tenho um sistema rodando numa empresa, mas acontece o que o amigo citou logo acima, quando acaba a impressão, o papel é passado como se fosse realmente uma folha comum...
Desde já, agradeço...

Tenho um pequeno componente que fiz
modificações e resolver meu problema se quizer me passa um email que eu te envio o exemplo de uso dele é assim.

With ImprDos Do
begin
L:=0 ;
Preview :=RPreview ;
Caminho:=Path ;
Open(True);
Say(L,0,´================================================´,False,False);
Say(L+1,10,VFantasia,True,True ) ;
Say(L+1,10,EndeEmpresa,True,True ) ;
Say(L+1,12,MaskString(Telefone, MaskFone,True),True,True) ;
Say(L+1,0,´================================================´,False,False);
Say(L+1,8,´MAPA DE CAIXA´,True,True) ;
Say(L+1,0,´MOVIMENTO :´ + DataMapa.Text,False,False );
Say(L+1,0,´DATA/HORA.:´ + DateTostr(Now) +StringOfChar(´ ´,2 )+ TimeTostr(now),False,False);
Say(L+1,0,´OPERADOR..:´ +PanelOperador.Caption,False,False ) ;
Say(L+1,0,´================================================´,False,False ) ;
Say(L+1,0,´DINHEIRO ´,False,False ) ;
Say(L,4,Dinheiro.Caption,True,True ) ;
Say(L+1,0,´CARTAO ´,False,False ) ;
Say(L,4,Cartao.Caption,True,True ) ;
Say(L+1,0,´CHEQUE ´,False,False ) ;
Say(L,4,ChequeVista.Caption,True,True ) ;
Say(L+1,0,´CONVENIO ´,False,False ) ;
Say(L,4,Convenio.Caption,True,True ) ;
Say(L+1,0,´A PRAZO ´,False,False ) ;
Say(L,4,Prazo.Caption,True,True ) ;
Say(L+1,0,´CHEQUE-PRE ´,False,False ) ;
Say(L,4,Chequepre.Caption,True,True ) ;
Say(L+1,0,´SANGRIAS ´,False,False ) ;
Say(L,4,PanelSangria.Caption,True,True ) ;
Say(L+1,0,´SUPRIMENTOS´,False,False ) ;
Say(L,4,PanelSuplemento.Caption,True,True ) ;
Say(L+1,0,´================================================´,False,False ) ;
Say(L+1,0,´TOTAL DE VENDAS A VISTA.:´,False,False );
Say(L,2,PanelTotalVista.Caption,True,True ) ;
Say(L+1,0,´TOTAL DE RECEBIMENTOS...:´,False,False);
Say(L,2,PanelTotRec.Caption,True,True ) ;
Say(L+1,0,´SUBTOTAL ==>´,False,True) ;
Say(L,2,PanelSubTotal.Caption,True,True) ;
Say(L+1,0, ´================================================´,False,False) ;
Say(L+1,0,´TOTAL DE VENDAS A PRAZO.: ´,False,False) ;
Say(L,1,PanelTotalPrazo.Caption,True,True) ;
Say(L+1,0,´TOT.BRUTO==>´,False,True);
Say(L,2,TotalMapa.Caption,True,True ) ;
Say(L+1,0, ´================================================´,False,False) ;
Say(L+1,0,´VENDAS CANCELADAS.......:´,False,False) ;
Say(L,2,sCancelamentos,True,True) ;
Say(L+1,0,´CONTAS CANCELADAS.......:´,False,False) ;
Say(L,2,sCancelContas,True,True) ;
Say(L+1,0, ´================================================´,False,False) ;
Say(L+1,8,´EXTRADO DO CAIXA´,True,True) ;
Say(L+1,15,´´,False,False) ;
ImpriExtDinheiro ;
Say(L+1,0,´(+)TOTAL EM DINHEIRO =====>´,False,False) ;
Say(L,2,Dinheiro.Caption,True,True ) ;
Say(L+1,0,´(+)REC. EM DINHEIRO =====>´,False,False) ;
Say(L,2,FormatFloat(´#,0.00´,TotRecDinheiro ),True,True ) ;
Say(L+1,0,´(+)SUPR. EM DINHEIRO =====>´,False,False) ;
Say(L,2,FormatFloat(´,0.00´,TotSuprDinheiro ),True,True ) ;
Say(L+1,0,´(-)SANGRIAS DINHEIRO =====>´,False,False) ;
Say(L,2,FormatFloat(´,0.00´,TotSangrDinheiro),True,True ) ;
Say(L+1,0,´(=)SUBTOTAL LIQUIDO =====>´,False,False) ;
Say(L,2,FormatFloat(´,0.00´,LiquiDinheiro ),True,True ) ;
Say(L+1,0,´================================================´,False,False ) ;
ImpriExtCheque ;
Say(L+1,0,´(+)TOTAL EM CHEQUE =====>´,False,False ) ;
Say(L,2,ChequeVista.Caption,True,True ) ;
Say(L+1,0,´(+)REC. EM CHEQUE =====>´,False,False ) ;
Say(L,2,FormatFloat(´#,0.00´,TotRecCheque ),True,True ) ;
Say(L+1,0,´(+)SUPR. EM CHEQUE =====>´,False,False ) ;
Say(L,2,FormatFloat(´,0.00´,TotSuprCheque ),True,True) ;
Say(L+1,0,´(-)SANGRIAS CHEQUE =====>´,False,False ) ;
Say(L,2,FormatFloat(´,0.00´,TotSangrCheque),True,True) ;
Say(L+1,0,´(=)SUBTOTAL LIQUIDO =====>´,False,False ) ;
Say(L,2,FormatFloat(´,0.00´,LiquiCheque ),True,True) ;
Say(L+1,0,´================================================´,False,False ) ;
ImpriExtPre ;
Say(L+1,0,´(+)TOTAL EM CHEQUE-PRE =====>´,False,False ) ;
Say(L,2,ChequePre.Caption,True,True ) ;
Say(L+1,0,´(+)REC. EM CHEQUE-PRE =====>´,False,False ) ;
Say(L,2,FormatFloat(´#,0.00´,TotRecPre ),True,True ) ;
Say(L+1,0,´(+)SUPR. EM CHEQUE-PRE =====>´,False,False ) ;
Say(L,2,FormatFloat(´,0.00´,TotSuprPre ),True,True ) ;
Say(L+1,0,´(-)SANGRIAS CHEQUE-PRE =====>´,False,False ) ;
Say(L,2,FormatFloat(´,0.00´,TotSangrPre),True,True ) ;
Say(L+1,0,´(=)SUBTOTAL LIQUIDO =====>´,False,False ) ;
Say(L,2,FormatFloat(´,0.00´,LiquiPre ),True,True ) ;
Say(L+1,0,´================================================´,False,False ) ;
ImpriExtCartao ;
Say(L+1,0,´(+)TOTAL EM CARTAO =====>´,False,False ) ;
Say(L,2,Cartao.Caption,True,True ) ;
Say(L+1,0,´(+)REC. EM CARTAO =====>´,False,False ) ;
Say(L,2,FormatFloat(´#,0.00´,TotRecCartao ),True,True) ;
Say(L+1,0,´(=)SUBTOTAL LIQUIDO =====>´,False,False ) ;
Say(L,2,FormatFloat(´,0.00´,LiquiCartao ),True,True) ;
Say(L+1,0,´================================================´,False,False ) ;
FinalDia :=(LiquiCheque+LiquiDinheiro+LiquiPre+LiquiCartao) ;
Say(L+1,0,´FINAL DO DIA EM CAIXA =====>´,False,False) ;
Say(L,2,FormatFloat(´,0.00´,Finaldia),True,True) ;
L:=L+1 ;
Say(L+1,0,´ ´,False,False) ;
Say(l,2,´HISTORICO DE SANGRIAS´,True,True) ;
Say(L+1,0,´ ´,False,False) ;
If Application.MessageBox(´IMPRIMIR HISTÓRICO DE SANGRIA ?.´, ´CONFIRMAÇÂO...´,
mb_YesNo + mb_IconQuestion)= IdYes Then
Begin
Tb_Sangrias.Filtered :=False ;
Tb_Sangrias.First ;
While not Tb_Sangrias.Eof do
begin
Say(l+1,0,´Forma: ´+Tb_SangriasForma.Text+ ´ ´+´Valor: ´+FormatFloat(´#,0.00´,Tb_SangriasValor.Value)+´ ´+´Hora :´+Tb_SangriasHora.Text,False,False) ;
Say(l,0,´Obs: ´ +Tb_SangriasObs.Text,False,False) ;
Say(l,0, ´------------------------------------------------´,False,False ) ;
Tb_sangrias.Next ;
end;
end;
Say(L,15,´*** FIM **** ´,False,False) ;
Saltar(13) ;
ImPrDos.Close ;