Gostaria De Imprimir Somente Os Caracteres Da Tela

[Guest - Fabiana -]

Estou precisando urgente saber como Iimprimo no meu formulario apenas os caracteres da tela, pois quando é impresso o formulario inteiro usando o print, gasta muita tinta, e os usuarios estao reclamando, Gostaria de imprimir apenas as coisas que estao escritas na tela mas incluindo todos os componetes exceto o treeView q tem. se alguém souber fico muito grata!

Valeu

Fabiana

[woryon]

É assim, coloque para abrir um novo form com apenas o que você quer que imprima e coloque esse código ou num botão ou no evento on Show do form aberto.

{O exemplo a seguir é um procedimento para imprimir um form. Para imprimir o form, basta informar o nome do mesmo como parâmetro: PrintForm(Form1). Antes de imprimir, a cor atual do form é salva em OldColor e alterada para clWhite (frm.Color := clWhite), para evitar gasto excessivo de tinta da impressora (ou tonner).}

PrintForm
uses
  Windows, SysUtils, Printers, Forms, Graphics, Controls, Classes;
  .
  .
  .
procedure PrintForm(frm: TForm);
var
  bmp: TBitMap;
  x, y, WDPI, HDPI: Integer;
  OldColor: TColor;
begin
  Screen.Cursor := crHourGlass;
  OldColor := frm.Color;
  frm.Color := clWhite;
  frm.Update;
  bmp := frm.GetFormImage;
  with Printer do
  begin
  Orientation := poLandscape;
  BeginDoc;
  HDPI := PageHeight div 8;
  WDPI := PageWidth div 8;
  x := PageWidth - Round(WDPI * 0.4); {0.4" margem direita}
  y := PageHeight - Round(HDPI * 0.5); {0.5" Altura do rodapé}
  Canvas.StretchDraw(Rect(0, 0, x, y), bmp);
  EndDoc;
  end;
  bmp.Free;
  frm.Color := OldColor;
  Screen.Cursor := crDefault;
end;