ChaPrinter - Impressão de caracter indesejado

15/08/2008

2

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

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários. Para saber mais sobre o uso de cookies,
consulte nossa política de privacidade. Ao continuar navegando em nosso site, você concorda com a nossa política.

Aceitar