准备用针式打印机一式三份静电打印纸,请问如何实现收据连续打印?

chy108 · 发表于 2014-8-14 10:41

准备用针式打印机一式三份静电打印纸,请问如何实现收据连续打印?见附件

excel_dxds · 发表于 2014-8-14 11:55

本帖最后由 excel_dxds 于 2014-8-14 12:30 编辑

楼主是不是想一次性打印完所有收据？插入一个打印按钮即可。
Private Sub CommandButton1_Click()
Dim mr&
mr = Sheets("业主资料").Range("b65536").End(xlUp).Row
For i = 5 To mr
   Cells(6, 3) = Sheets("业主资料").Cells(i, 2)
   ActiveSheet.PrintOut from:=1, To:=1, copies:=1, Collate:=True
   Next i

End Sub

收据打印（TEST）.rar (21.93 KB, 下载次数: 70)

excel_dxds · 发表于 2014-8-14 12:28

或者是分三张收据打印一个房号？如果是则分别设置打印区域即可。

收据打印（TEST）.rar (24.64 KB, 下载次数: 51)

chy108 · 发表于 2014-8-14 13:45

是的，一次性打印所有收据，一个房号要打三张收据。

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

[求助] 准备用针式打印机一式三份静电打印纸,请问如何实现收据连续打印?