Fórum Tprinter, preciso de uma solução... #322650

procedure TFOrcamento.ImprimirClick(Sender: TObject);
Var
Linha, Coluna, Quantidade : Integer;
IndiceHorizontal, IndiceVertical, Total, TotalGeral : Real;
Codigo : String;
Begin
With IBQimprime do
  begin
  close;
  sql.Clear;
  sql.Add(´ Select orcamento.*, orcamentodet.*, empresa.fantasia, empresa.fone, atendente.nome ´ +
  ´ from orcamento ´ +
  ´ left join orcamentodet on orcamento.id = orcamentodet.idorcamento ´+
  ´ left join empresa on orcamento.idempresa = empresa.id ´ +
  ´ left join atendente on orcamento.idatendente = atendente.id ´+
  ´ where orcamento.id = ´ + QuotedStr(DBEdit2.Text));
  open;
  end;

Imprimir.Enabled := False; 
Cursor := crHourGlass; 
IndiceHorizontal := Printer.PageWidth / 960;
IndiceVertical := Printer.PageHeight / 792;
Printer.canvas.font.Name := ´Arial´;
Printer.Orientation := poPortrait; 
Printer.BeginDoc; 
Linha := 0;
Quantidade := 0;
TotalGeral := 0; 
With IBQimprime do
  Begin
  First; 
  While not eof do // para imprimir toda a tabela
    Begin
    With Printer.Canvas do 
      Begin
      If Linha = 0 then 
        Begin
        Printer.canvas.font.Name := ´Monotype Corsiva´;
        Printer.canvas.font.style:=[fsitalic];
        Font.Size := 20;
        Coluna := Round(15 * IndiceHorizontal);
        TextOut(Coluna, Linha, IBQimprimeFANTASIA.text);
        Coluna := Round(720 * IndiceHorizontal);
        TextOut(Coluna, Linha, DateToStr(Now)); 
        Linha := Linha + Round(23 * IndiceVertical);
        Coluna := Round(250 * IndiceHorizontal);
        Printer.canvas.font.Name := ´Arial´;
        Printer.canvas.font.style:=[];
        Font.Size := 20; 
        TextOut(Coluna, Linha, ´Emissao do Orçamento ´); 
        Linha := Linha + Round(28 * IndiceVertical);
        Font.Size := 9;
        Coluna := 0;
        TextOut(Coluna, Linha, ´CÓDIGO´); 
        Coluna := Round(90 * IndiceHorizontal);
        TextOut(Coluna, Linha, ´QUANT´);
        Coluna := Round(170 * IndiceHorizontal);
        TextOut(Coluna, Linha, ´VALOR´); 
        Linha := Linha + (Round(25 * IndiceVertical));
        End;
      Coluna := 0;
      Codigo := IntToStr(IBQimprimeIDPRODUTO.Value);
      TextOut(Coluna, Linha, Codigo);
      Coluna := Round(90 * IndiceHorizontal);
      TextOut(Coluna, Linha, floattostr(IBQimprimeQTDE.Value)); 
      Total := IBQimprimeTOTAL1.Value; 
      TotalGeral := TotalGeral + Total; 
      Quantidade := Quantidade + 1; 
      Coluna := Round(170 * IndiceHorizontal);
      TextOut(Coluna, Linha, FloatToStrF(Total, ffFixed, 10, 2));
      Linha := Linha + Round(20 * IndiceVertical);
      If Linha >= 600 then 
        Begin
        Linha := 0; 
        Printer.NewPage;
        End;
      End;
    IBQimprime.Next;
    End;
  End;
Printer.Canvas.Font.Size := 10; 
Linha := Linha + Round(25 * IndiceVertical);
If Linha > 600 then 
  Printer.NewPage;
Coluna := 0;
Printer.Canvas.TextOut(Coluna, Linha, ´QUANTIDADE TOTAL DE ÍTENS: ´ + IntToStr(Quantidade));
Linha := Linha + Round(25 * IndiceVertical);
Printer.Canvas.TextOut(Coluna, Linha, ´VALOR TOTAL: ´ + FloatToStrF(TotalGeral, ffCurrency, 10, 2));
Printer.EndDoc;
Cursor := crDefault;