Print no Delphi 7

[Alexandre Gussem]

Boa tarde galera, procurei nos outros tópico e nada.
Vamos la, estou querendo imprimir um Form, ele tem barra de rolagem e a impressão sai cortada apenas nas parte que ficam na tela.
teria a possibilidade de imprimir o Form completo, mesmo não conseguindo visualizar pois ficou grande e necessitou de barra de rolagem.

Sou iniciante.

 

Código esta abaixo.

procedure TFrmOrc.Btn05Click(Sender: TObject);

   var x, y, WDPI, HDPI: Integer;
  OldColor: TColor;
  bmp: TBitMap;
begin

Screen.Cursor := crHourGlass;
  OldColor := FrmOrc.Color;
  FrmOrc.Color := clWhite;
  FrmOrc.Update;
  bmp := FrmOrc.GetFormImage;
  with Printer do
  begin
  Orientation := poPortrait;
  BeginDoc;
  HDPI := PageHeight div 8;
  WDPI := PageWidth div 8;
  x := PageWidth - Round(WDPI * 0.4); {0.4" margem direita}
  y := PageHeight - Round(HDPI * 0.0); {5.0" Altura do rodapé}
  Canvas.StretchDraw(Rect(10, 10, x, y), bmp);
  EndDoc;
  end;
  bmp.Free;
  FrmOrc.Color := OldColor;
  Screen.Cursor := crDefault;

 

valeu Galera!

[loveblack]

@Alexandre Gussem ja tentou copiar e colar no world pra depois imprimir?

[Alexandre Gussem]

Tem como eu usar algum botão para fazer isso, desculpe a ignorância, não uso delphi tem uns 15 anos. Estou com muita dificuldade para fazer coisas básicas.

[loveblack]

@Alexandre Gussem tente isso

 

implementation 

{$R *.dfm} 

uses Clipbrd; 

procedure TForm1.FormCreate(Sender: TObject); 
begin 
  Clipboard.AsText := 'Anderson' 
end; 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
  Caption := Clipboard.AsText; 
end; 

end.

[Alexandre Gussem]

Essa é a tela que preciso imprimir, bem simples mesmo, mas quando coloca para imprimir, corta o Memo e os botões que estão mais abaixo.