Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 2867|回复: 9

[已解决]多个工作薄的中的第一个工作表都要求用A3打印求方法?

[复制链接]
发表于 2014-2-28 08:28 | 显示全部楼层 |阅读模式
多个工作薄的中的第一个工作表都要求用A3打印求方法?
因为各个部门送过来的工作薄(基本上是要求打印第一个工作表)都不一样(有B4,A3)
求都用A3打印出来的方法
最佳答案
2014-2-28 08:51
把数据工作簿放在文件夹下,点击打印工作簿按钮
发表于 2014-2-28 08:38 | 显示全部楼层
  1.     Application.PrintCommunication = False
  2.     With ActiveSheet.PageSetup
  3.         .PaperSize = xlPaperA3
  4.       End With
  5.     Application.PrintCommunication = True
复制代码
这是设置当前工作表的纸张大小的。
你看着改下。
回复

使用道具 举报

发表于 2014-2-28 08:39 | 显示全部楼层
2003:文件——页面设置——纸张大小里选A3;
2003:文件——打印——页面设置——纸张大小里选A3;
A3打印.gif
回复

使用道具 举报

发表于 2014-2-28 08:49 | 显示全部楼层
  1. Sub Macro1()
  2. Dim wb As Workbook, mypath$, wj$
  3. mypath = ThisWorkbook.Path & ""
  4. wj = Dir(mypath & "*.xls")
  5. Do While wj <> ""
  6.     If wj <> ThisWorkbook.Name Then
  7.         Set wb = GetObject(mypath & wj)
  8.         wb.Sheets(1).PageSetup.PaperSize = xlPaperA3
  9.         wb.Sheets(1).PrintOut
  10.         wb.Close 0
  11.     End If
  12. wj = Dir
  13. Loop
  14. End Sub
复制代码
回复

使用道具 举报

发表于 2014-2-28 08:51 | 显示全部楼层    本楼为最佳答案   
把数据工作簿放在文件夹下,点击打印工作簿按钮

新建文件夹.zip

9.94 KB, 下载次数: 9

回复

使用道具 举报

 楼主| 发表于 2014-2-28 09:49 | 显示全部楼层
dsmch 发表于 2014-2-28 08:51
把数据工作簿放在文件夹下,点击打印工作簿按钮

求高手指点为什么这个工作簿出来5份?
代码没有问题,这个文件夹的其他工作簿都能打印,就里面的一个工作簿一打印就出来5份
求教高手指点

求高手指点为什么这个工作簿出来5份?.rar

43.4 KB, 下载次数: 6

回复

使用道具 举报

发表于 2014-2-28 09:54 | 显示全部楼层
eikok 发表于 2014-2-28 09:49
求高手指点为什么这个工作簿出来5份?
代码没有问题,这个文件夹的其他工作簿都能打印,就里面的一个工作 ...

设置为A3,缩放比例100%,查看一下打印预览
回复

使用道具 举报

 楼主| 发表于 2014-2-28 10:07 | 显示全部楼层
dsmch 发表于 2014-2-28 09:54
设置为A3,缩放比例100%,查看一下打印预览

设置为A3了,打印出来还是5份?求解
回复

使用道具 举报

发表于 2014-2-28 10:12 | 显示全部楼层
eikok 发表于 2014-2-28 10:07
设置为A3了,打印出来还是5份?求解

预览就是5张,所以…………
回复

使用道具 举报

 楼主| 发表于 2014-2-28 10:31 | 显示全部楼层
dsmch 发表于 2014-2-28 10:12
预览就是5张,所以…………

求怎么能设置成一张?
不知道怎么就打印出来5份了,文件夹下就这一个工作表出来5份
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 15:18 , Processed in 0.420529 second(s), 9 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表