[delphi-br] Epson LX 300

Tue, 09 Jan 2007 08:21:12 -0800 

Boa Tarde colegas,

Primeira vez q estou trabalhando com uma impressora matricial e é uma 
Epson LX 300 e estou desenvolvendo uma aplicação com delhi 6 e 
firebird. Bom meu problema é o seguinte monto meu carne numa memo ate 
tudo blzinha, em cima dessa memo mando imprimir com o seguinte codigo:


procedure TFrmRelCarne.BtnImprimirClick(Sender: TObject);
var c : integer;
    linha : int64;
begin
  if Length(Trim(MmCarne.Text)) = 0 then
  begin
    MessageDlg('Esolha uma venda', mtInformation,[mbok],0);
    BtnImprimir.SetFocus;
    exit;
  end;

  try
    Printer.BeginDoc;
    Printer.Canvas.Font.Size := 10;
    Printer.Canvas.Font.Name := 'courier new';
    c := 1;
    linha := 0;
    while c <= MmCarne.Lines.Count do
    begin
      Printer.Canvas.TextOut(0,linha,MmCarne.Lines[c]);

      if c = 85 then
        Printer.NewPage;

      linha := linha + 20;
      c := c + 1;
    end;

    Printer.EndDoc;

    MessageDlg('Imprimindo carne...', mtInformation,[mbok],0);
  except
    MmCarne.Clear;

    MessageDlg('Erro ao imprimir carne', mtError,[mbok],0);
  end;

end;

No começo blz sem problema, mas qdo chega na 9 fatura a impressora 
não imprime mais, sendo q a 9ª ate a 12ª parcela estão na memo.... 
pelo q percebi ela para onde seria a troca de pagina, alguem viu algo 
pareceido e poderia me ajudar.

OBS: montei um txt com varias paginas e a impressora imprimiu normal, 
por isso q o problema ta na aplicação.

Obrigado.

Responder a