ChaPrinter - Impressão de caracter indesejado

15/08/2008

1

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.


Responder