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!