关于excel打印问题

ft406636 · 发表于 2009-9-24 09:02

请假各位大人，从数据表中逐一在打印中打印出来，可以实现么？谢谢

dg831451 · 发表于 2009-9-24 09:13

你是想一次打印出来呢还是一个个的打印？

ft406636 · 发表于 2009-9-24 09:14

就是一个名字，一张，打的是凭证，也可以全部一起点出来打印纸可以一张一张放，能实现么？看了很多实例不得要领

LangQueS · 发表于 2009-9-24 09:24

Sub 打印全部()
y = Sheets("数据源").Columns(1).Find("*", , xlValues, , , 2).Row '第1列最后可见非空单元行号
t = 2 '从2开始
Do While t < y + 1       '继续循环的条件
      Range("b4") = Sheets("数据源").Range("b" & t).Value
      Range("d4") = Sheets("数据源").Range("c" & t).Value
      Range("e4") = Sheets("数据源").Range("d" & t).Value
      ActiveSheet.PrintOut       '打印当前表
   t = t + 1    '下一个
Loop    '当条件符合时重复执行
End Sub

zhc19620430 · 发表于 2009-9-24 09:26

打印工作表方法，如：sheet1,sheet2.....可以按住ctrl,点击sheet1,sheet2...，点击“打印”即刻实现。

dg831451 · 发表于 2009-9-24 09:27

如果凭证的纸张是已经有固定好的话。那么你还是一张张的打吧。因为如果用邮件合并的话。虽然可以一次性打出来。但是这个格式不好调整很麻烦。因为你的凭证纸张肯定不会是A4那样吧。这个关键是看你的凭证纸张是如何的。如果你会添加凭证纸张的话。也会设置word的纸张那么一次性打印也是可以的。。

先做一个一个个打印的示例

LangQueS · 发表于 2009-9-24 09:32

再给个参考：

★使用动态代码填写表格★ http://club.excelhome.net/viewth ... &extra=page%3D1

ft406636 · 发表于 2009-9-24 09:34

谢谢各位大大，领教了

ft406636 · 发表于 2009-9-24 09:41

原帖由 dg831451 于 2009-9-24 09:27 发表
如果凭证的纸张是已经有固定好的话。那么你还是一张张的打吧。因为如果用邮件合并的话。虽然可以一次性打出来。但是这个格式不好调整很麻烦。因为你的凭证纸张肯定不会是A4那样吧。这个关键是看你的凭证纸张是如何的 ...

在问一下你那个按钮我怎么看不到代码？

LangQueS · 发表于 2009-9-24 14:42

原帖由 ft406636 于 2009-9-24 09:41 发表

在问一下你那个按钮我怎么看不到代码？

鼠标右选控件……设置控件格式……

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