ChaPrinter - Impressão de caracter indesejado
15/08/2008
0
Veja a rotina abaixo:
uses
Char Printer;
procedure imprimeComCharPrinter;
Var
prn : TAdvancedPrinter;
VImpressora : String;
begin
try
if VImpressora = ´´ then
VImpressora := Printer.Printers[Printer.PrinterIndex];
prn := tAdvancedPrinter.Create;
prn.OpenDoc(´ Venda nº´+IntToSTr(VVendaAtual),VImpressora);
prn.FontSize := pfs10cpi;
prn.TextStyle := [psBold];
prn.Write(´Nome da empresa´);
prn.TextStyle := [];
prn.FontSize := pfs12cpi;
prn.CRLF;
prn.Write(´Item de produtos´);
prn.CRLF;
finally
prn.closeDoc;
prn.Free;
end;
end;
Deveria imprimir ´Nome da empresa´ na primeira linha e ´Item de Produtos´ na segunda, correto?
Mas antes de ´Nome da empresa´, imprime um ´0´ (zero) que não sei de onde vem e fica assim ´0Nome da Empresa´.
Alguém sabe o que pode ser isso e como resolver?
Obrigado.
uses
Char Printer;
procedure imprimeComCharPrinter;
Var
prn : TAdvancedPrinter;
VImpressora : String;
begin
try
if VImpressora = ´´ then
VImpressora := Printer.Printers[Printer.PrinterIndex];
prn := tAdvancedPrinter.Create;
prn.OpenDoc(´ Venda nº´+IntToSTr(VVendaAtual),VImpressora);
prn.FontSize := pfs10cpi;
prn.TextStyle := [psBold];
prn.Write(´Nome da empresa´);
prn.TextStyle := [];
prn.FontSize := pfs12cpi;
prn.CRLF;
prn.Write(´Item de produtos´);
prn.CRLF;
finally
prn.closeDoc;
prn.Free;
end;
end;
Deveria imprimir ´Nome da empresa´ na primeira linha e ´Item de Produtos´ na segunda, correto?
Mas antes de ´Nome da empresa´, imprime um ´0´ (zero) que não sei de onde vem e fica assim ´0Nome da Empresa´.
Alguém sabe o que pode ser isso e como resolver?
Obrigado.
Armindo
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)