Imprimiendo labels y facturas

[principiante22]

Gracias JuanchoArg, pero, Como uso el objeto printer para mi fin?? y donde se encuentra ese objeto, o sea, en que pestaña??

[rgstuamigo]

Printer es un objeto no un componente que esta en la paleta....
puedes usarlo asi:

Código Delphi [-]
uses  Printers,......
.
.
.
.
procedure TForm1.Button1Click(Sender: TObject);
begin
if PrintDialog1.Execute then
  begin
    Printer.BeginDoc;//inicia la impresion
     Printer.Title:='MiFactura';//asigna el titulo de la impresion
     Printer.Canvas.TextOut(0,0,'Mi texto para imprimir1');//escribe ese texto en la posicion(0,0)del canvas del Printer 
     Printer.Canvas.TextOut(0,50,'Mi texto para imprimir2');//escribe ese texto en la posicion(0,50)del canvas del Printer
    Printer.EndDoc;//finaliza la impresion
  end;
end;

Saludos...

[rgstuamigo]

Tambien si quisieras imprimir tu formulario completo asi tal como se ve, podrias hacer lo siguiente:

Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);
begin
 Print;
end;

si quisieras ocultar algun componente que no quieras que se imprima, podrias hacer el siguiente truquito:

Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);
begin
  Button1.Visible:=False;
  Button2.Visible:=False;
  Print;//aqui imprime todos los componentes que estan visibles.
  Button1.Visible:=True;
  Button2.Visible:=True;
end;