Boa tarde,
Para imprimir este tipo de documento e qualquer relatório em uma
impressora matricial eu uso o componete RDPint (Pago) ou o VDOPrint
(free), com eles tenho controle de linhas colunas página, sem a
necessidade de desenhar o relatório em tela.
Wandarlei Michelon
--- Em delphi-br@yahoogrupos.com.br, "Fre Cunha" <[EMAIL PROTECTED]>
escreveu
>
> 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.
>
