Imprimir directamente

[ecfisa]

Empezado por lucas05

Hola, como puedo hacer para imprimir enviando los datos directamente a la impresora.
Quiero que el usuario presione un button e imprima los datos de una tabla temporal ClientDataSet1, y también el contenido de EDit1, Edit2 (los edits tienen datos que son ingresados por el usuario).

Hola lucas.

Un ejemplo:

Código Delphi [-]
...
uses Printers;

procedure TForm1.btnImprimirClick(Sender: TObject);
var
  i,x,y: Integer;
  s: string;
begin
  with TPrinter.Create do
  try
    i:= 1;
    BeginDoc;
    x := Printer.PageWidth div 15;
    y := Printer.PageHeight div 50;
    Canvas.Font.Name:= 'Times new Roman';
    Canvas.Font.Color:= clBlack;
    Canvas.Font.Height:= Printer.PageHeight div 100;
    ClientDataSet.First;
    while not ClientDataSet.Eof do
    begin
      s:= ClientDataSet.FieldByName('Campo1').AsString +' '+
          ClientDataSet.FieldByName('Campo2').AsString +' '+
          //...
          ClientDataSet.FieldByName('CampoN').AsString;
      Canvas.TextOut(x, i*y , s);
      ClientDataSet.Next;
      Inc(i);
    end;
    Canvas.TextOut(x, i*y, Edit1.Text);
    Inc(i);
    Canvas.TextOut(x, i*y, Edit2.Text);
    EndDoc;
  finally
    Free;
  end;
end;

Saludos.