[VBA] 常用程式碼系列06-自動設定列印範圍 - 問問蓮蓬頭

Aug 02. 2020 19:16. [VBA] 常用程式碼系列06-自動設定列印範圍，並將資料設定於同一頁內並預覽列印. 4061. 創作者介紹. 創作者黑天使的頭像 社群金點賞徽章. 關閉廣告 問問蓮蓬頭 跳到主文 部落格全站分類：生活綜合 相簿 部落格 留言 名片 Aug02Sun202019:16 [VBA]常用程式碼系列06-自動設定列印範圍，並將資料設定於同一頁內並預覽列印 [說明] 自動設定列印範圍，並將資料設定於同一頁內並預覽列印。

  [程式碼] SubJS()'06自動設定列印範圍，並將資料設定於同一頁內並預覽列印        Range("a1").Select  '儲存格選擇RANGE("A1)儲存格   X=Selection.End(xlToRight).Column'取得資料最後一欄的欄號   Y=Selection.End(xlDown).Row'取得資料最後一列的列號   ActiveSheet.PageSetup.PrintArea=Range(Cells(1,1),Cells(Y,X)).Address'設定列印範圍      ActiveSheet.PageSetup.Zoom=False'將調整列印工作表縮放百分比的功能關閉   ActiveSheet.PageSetup.FitToPagesWide=1'將文件的欄縮在1頁之內   ActiveSheet.PageSetup.FitToPagesTall=1'將文件的列縮在1頁之內   ActiveSheet.PrintPreview'預覽列印   EndSub     [特別說明] 「 X=Selection.End(xlToRight).Column」這種欄號的取得方式僅適合使用在，第一列的欄與欄之間沒有空格時使用。

「  Y=Selection.End(xlDown).Row」這種列號的取得方式僅適合使用在，第一欄的列與列之間沒有空格時使用。

「ActiveSheet.PageSetup.Zoom=False」這一行指令是為了關閉，先前有用縮放比例列印的功能。

「 ActiveSheet.PageSetup.FitToPagesTall=1」是指若資料的列數超過1頁時，列印資料會自動縮在1頁內，若設定為2時，若資料量超過2頁，則列印資料會自動縮在2頁內。

    文章標籤 Excel VBA 列印範圍 設定列印範圍 自動設定列印範圍 動態設定列印範圍 PrintPreview 依欄與列設定列印範圍 全站熱搜 創作者介紹 黑天使 問問蓮蓬頭 黑天使發表在痞客邦留言(1)人氣() E-mail轉寄 全站分類：進修深造個人分類：VBA此分類上一篇：[VBA]常用程式碼系列05-依據儲存格內資料行數自動設置列高並在依倍數加大 此分類下一篇：[VBA]常用程式碼系列07-關閉活頁簿或某工作表的列印功能 上一篇：[感恩惜福]2020-08-01Day1 下一篇：[感恩惜福]2020-08-02Day2 歷史上的今天 2020:[感恩惜福]2020-08-02Day2 ▲top 留言列表 發表留言 文章搜尋 熱門文章 文章分類 心情塗鴉(44)用照片說出自己的心情故事(13)感恩惜福(14)EXCEL函數(32)倉儲管理(29)VBA(36)物料管理(8)財務會計(2)生產管理(1)時間管理(3)讀書心得(1)運動相關(4)旅遊記事(4)名人語錄(26)個人養生(5)好歌歌詞(3)電腦資訊(3)未分類文章(1) QRCode 參觀人氣 本日人氣： 累積人氣： 贊助商連結 贊助商連結 RSS訂閱 誰來我家 回到頁首 回到主文 免費註冊 客服中心 痞客邦首頁 ©2003-2022PIXNET 關閉視窗 PIXNET Facebook Yahoo! Google MSN {{guestName}} (登出) 您尚未登入，將以訪客身份留言。

亦可以上方服務帳號登入留言 請輸入暱稱(最多顯示6個中文字元) 請輸入標題(最多顯示9個中文字元) 請輸入內容(最多140個中文字元) 請輸入左方認證碼： 看不懂,換張圖 請輸入驗證碼 送出留言