[說明]
自動設定列印範圍，並將資料設定於同一頁內並預覽列印。
[程式碼]
Sub JS() '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 '預覽列印
End Sub
[特別說明]
「 X = Selection.End(xlToRight).Column」這種欄號的取得方式僅適合使用在，第一列的欄與欄之間沒有空格時使用。
「 Y = Selection.End(xlDown).Row 」這種列號的取得方式僅適合使用在，第一欄的列與列之間沒有空格時使用。
「ActiveSheet.PageSetup.Zoom = False」這一行指令是為了關閉，先前有用縮放比例列印的功能。
「 ActiveSheet.PageSetup.FitToPagesTall = 1」是指若資料的列數超過1頁時，列印資料會自動縮在1頁內，若設定為2時，若資料量超過2頁，則列印資料會自動縮在2頁內。
文章標籤
全站熱搜
留言列表
