返回列表 上一主題 發帖

[發問] 如何將A5紙張格式一次列印於A4紙張直接產生二份表格

luhpro

帖子
824 
主題
6 
精華
0 
積分
904 
點名
0  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2023-12-24 
1# 跳轉到 »
發表於 2012-8-22 21:28 | 顯示全部帖子
各位大大好：
  小弟已完成一份表格，讓使用者可
由資料庫取出指定資料並填入表格內
的欄位位置。
   ...
dechiuan999 發表於 2012-8-21 21:18


我剛剛有想到一種方式: (請依現況酌予修改下述內容)
1. 將要列印的兩頁資料放在一起.
2. 設定要列印的區域範圍:

Worksheets("Sheet1").PageSetup.PrintArea = "$A$1:$C$5"

3. 設定列印成 1 頁高 1 頁寬.

With Worksheets("Sheet1").PageSetup
    .Zoom = False
    .FitToPagesTall = 1
    .FitToPagesWide = 1
End With

4. 列印完請記得將相關參數還原

這樣應該就可以達到你想要的效果了.

TOP

        靜思自在 : 為自己找藉口的人永遠不會進步。
返回列表 上一主題