[已解决]求教如何用VBA代码来设置【横向】【缩放】调整为1页宽1页高

eikok

求教如何用VBA代码来设置【横向】【缩放】调整为1页宽1页高

因为远文件是从网站上导出来的
如何要打印每次都要设置【横向】【缩放】调整为1页宽1页高打印出来才能一页。（每天都要设置一遍）
求教如何用VBA代码只要打开从网站上下载的excel文件，打开就自动设置{【横向】【缩放】调整为1页宽1页高；并打印}

最佳答案

月排行榜 / 总排行榜

冥王

2016-4-14 09:39

录制一个宏，代码就出来了，然后把代码放到工作簿的open事件中

1. Private Sub Workbook_Open()
   
2.     With ActiveSheet.PageSetup
   
3.         .Orientation = xlLandscape
   
4.         .FitToPagesWide = 1
   
5.         .FitToPagesTall = 1
   
6.     End With
   
7. End Sub

复制代码

跳转到最佳答案楼层

冥王

录制一个宏，代码就出来了，然后把代码放到工作簿的open事件中

1. Private Sub Workbook_Open()
   
2.     With ActiveSheet.PageSetup
   
3.         .Orientation = xlLandscape
   
4.         .FitToPagesWide = 1
   
5.         .FitToPagesTall = 1
   
6.     End With
   
7. End Sub

复制代码

eikok

冥王 发表于 2016-4-14 09:39
录制一个宏，代码就出来了，然后把代码放到工作簿的open事件中

录制一个宏，代码就出来了

你说的太对了