[已解决]工作簿选择纸张类型的问题

暗夜男

用ms excel做了一个表,打印纸张选择的是自定义信封大小的纸,一直用得不错
今天用wps excel打开修改了一个数并保存,然后用ms excel打开后发现每个工作表的打印纸张变成了自定义,打印后各种错位
请问可不可以把全部工作表的打印纸张修改成为我需要的,叫"申请单"
其他不需要修改,只改个打印纸张就行,里面大概80多个工作表且名字无规律

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-1-18 16:25

修改所有你就用遍历嘛。

1. For Each sht In Worksheets
   
2.         With sht.PageSetup
   
3.             .PaperSize = xlpaerletter
   
4.         End With
   
5.     Next

复制代码

跳转到最佳答案楼层

hwc2ycy

1.     With ActiveSheet.PageSetup
   
2.         .PaperSize = xlPaperLetter
   
3.     End With
   
4.     Application.PrintCommunication = True
   
5.     Application.PrintCommunication = False

复制代码

你录一段设置纸的宏就知道了。Papersize就是纸张大小的。

暗夜男

hwc2ycy 发表于 2013-1-18 15:24
你录一段设置纸的宏就知道了。Papersize就是纸张大小的。

好像这个是修改当前工作表的,可以修改全部工作表不?

hwc2ycy

修改所有你就用遍历嘛。

1. For Each sht In Worksheets
   
2.         With sht.PageSetup
   
3.             .PaperSize = xlpaerletter
   
4.         End With
   
5.     Next

复制代码

hwc2ycy

1. For Each sht In Worksheets
   
2.     sht.PageSetup.PaperSize = xlpaerletter
   
3. Next

复制代码

暗夜男

多谢大侠出手相救,对您来说只是个小问题,对我来说就头疼了,哈哈