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.

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.

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!