Como imprimir os dados de um DBGrid???

Question

Ow, e a�, blz?T� cuma d�vida cruel....Como fa�o para definir a �rea de impress�o de um Dbgrid, tendo um Edit como cabe�alho? Tipo assim... o Edit fica no topo da p�gina c/ um nome e abaixo dele tem um...

Marcelo.c · Answer

Crie um relat�rio utilizando um Gerador como o Quick Report por exemplo.Neste caso, o ideal seria voc� pegar uma apostila em:www.clubedelphi.com.br/apostilas/apostilas.asp...

Maluco Tubaina · Answer

� realmente necess�rio criar o relat�rio no Qreport ou tem algum outro jeito de imprimir o Dbgrid diretamente? Sei que na �orelha� Dialogs tem componentes de impress�o, mas n�o sei como us�-los... vc poderia me explicar o procedimento???
Grato!

Marcelo.c · Answer

Voc� pode utilizar TPrinter para imprimir diretamente para a porta de impress�o.

O c�digo abaixo foi passado pelo [b:79f05ea9b6]Carnette[/b:79f05ea9b6] em outro Post.

Impress�o Com o TPrinter:

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  Linha:integer;
  Tamanho:integer;
  Coluna:integer;
begin
  Printer.Orientation := poLandscape;
  Printer.BeginDoc;
  Printer.Canvas.Pen.Width := 5;
  Printer.Canvas.Font.Name := �Times New Roman�;
  Printer.Canvas.Font.Size := 10;
  Linha := 20;
  Coluna:= 20;
  Tamanho := Printer.Canvas.TextWidth(�a�);
  Table1.First;
  while not Table1.Eof do
  begin
    if Linha = 20 then
    begin
      Coluna := 20;
      Printer.Canvas.TextOut(0,Linha,�Rela��o de Clientes�);
      Linha := Linha - Printer.Canvas.Font.Height + 5 ;
      Printer.Canvas.TextOut(Coluna,Linha,�Cod�);
      Coluna:= Coluna + (Tamanho * 5 );
      Printer.Canvas.TextOut(Coluna,Linha,�Nome�);
      Coluna:= Coluna + (Tamanho * 30);
      Printer.Canvas.TextOut(Coluna,Linha,�Endere�o�);
      Coluna:= Coluna + (Tamanho * 30);
      Linha := Linha - Printer.Canvas.Font.Height + 5 ;
    end;
    Coluna := 20 ;
    Printer.Canvas.TextOut(Coluna,Linha,Table1.FieldByName(�Codigo�).AsString);
    Coluna:= Coluna + (Tamanho * 5 );
    Printer.Canvas.TextOut(Coluna,Linha,Table1.FieldByName(�Nome�).AsString);
    Coluna:= Coluna + (Tamanho * 30);
    Printer.Canvas.TextOut(Coluna,Linha,Table1.FieldByName(�End�).AsString);
    Coluna:= Coluna + (Tamanho * 30);
    Linha := Linha - Printer.Canvas.Font.Height + 5 ;
    Table1.Next;
    if Linha > Printer.PageHeight-20 then
    Begin
      Printer.NewPage;
      Linha := 20;
    end;
  end;
  Printer.EndDoc;
end;

F�rum Como imprimir os dados de um DBGrid??? #196031