begin
if printdialog1.Execute=true then
form1.Print;
end;

表單縮小後，使用上面的方法只能印出表單的上半部分，(右邊可以拉上拉下)
如果整個表單放大，又太大了= =
因為筆電很扁...

請問,
您有試一下 tform 的 PrintScale 屬性嗎?

或是
print 前先放到最大, print 完再縮回來 ?

windowstate := wsMaximized;
print;
windowstate := wsNormal;

------
IS IT WHAT IT IS
我是 李慕白 請倒著唸.
又想把老話拿出來說, 請用台語發音 : 專家專家全是ROBOT CAR (滷肉腳啦);
都已接手這麼久了, 績效還是那麼爛, 講話還那麼大聲.

編輯記錄

此方法可以...但又有另一個問題= =

我先設了constraints
maxheight =1015
maxwidth=806

autoscroll=true

但run時 旁邊沒有autoscroll = =


===================引 用 st33chen 文 章===================
請問,
您有試一下 tform 的 PrintScale 屬性嗎?

或是
print 前先放到最大, print 完再縮回來 ?

windowstate := wsMaximized;
print;
windowstate := wsNormal;