[已解决]怎样实现跨表打印？

JLxiangwei · 发表于 2011-3-8 10:19

怎样才能实现我在sheet1中点击打印按钮，打印的内容是sheet2中的A1：E5？

最佳答案

qq01412

2011-3-8 11:01

本帖最后由 qq01412 于 2011-3-8 11:01 编辑

你在看看啊没有错误
Private Sub CommandButton2_Click()
Sheets("sheet2").PageSetup.PrintArea = "$A$1:$E$5"
Worksheets("sheet2").PrintOut
End Sub 我通过啦

跳转到最佳答案楼层

llplj · 发表于 2011-3-8 10:26

为什么不到Sheet2里面去然后再打？不明白你需要开发这种东西的原因？

JLxiangwei · 发表于 2011-3-8 10:30

为了操作方便{:4312:}

qq01412 · 发表于 2011-3-8 10:44

本帖最后由 qq01412 于 2011-3-8 11:00 编辑

选择打印区域先：Sheets（"sheet2"）.PageSetup.PrintArea = "$A$1:$E$5"
打印：Worksheets("sheet2").PrintOut
你试试中不！
在sheet1里面建立一个命令按钮把代码放里面就好啦

JLxiangwei · 发表于 2011-3-8 10:55

请问怎么操作，我把代码放进去，好像不行嘛

qq01412 · 发表于 2011-3-8 11:01

这个最佳答案由 qq01412 给出，感谢 qq01412 的回答。

单击隐藏图章

本帖最后由 qq01412 于 2011-3-8 11:01 编辑

你在看看啊没有错误
Private Sub CommandButton2_Click()
Sheets("sheet2").PageSetup.PrintArea = "$A$1:$E$5"
Worksheets("sheet2").PrintOut
End Sub 我通过啦

JLxiangwei · 发表于 2011-3-8 11:02

好，谢谢，我明白了

细雨柠檬 · 发表于 2011-3-8 15:11

没有看得懂

		自动登录	找回密码
密码			注册