报表每份打印2张，如11，22，33，44，55

starnew　发表于：2017-04-21 15:05:42 　

复制

如下图所示，我想打印一份报表2份，但我想打印出11，22，33，44，55这种效果，除了揗环（VB）外，有没有简单一点的代码？

方法一：

m_p = True
'DoCmd.OpenReport "打印的副本"

'm_p = False
'DoCmd.OpenReport "打印的副本"

这个方法能出来，12345，12345。

方法二：

DoCmd.OpenReport "打印的副本", acViewReport, "", "", acNormal
'DoCmd.PrintOut acPrintAll, , , , 2, 2
这个方法能出来，12345，12345。

方法三：用代码揗环但报错（以前编的代码改了一下报错）

Private Sub Command10_Click()
Dim rs As New ADODB.Recordset
Dim cnn As New ADODB.Connection
Dim str As String
Set cnn = CurrentProject.Connection
str = "select distinct 物料,份 from 打印库"
rs.Open str, cnn, adOpenKeyset, adLockOptimistic
Do While Not rs.EOF

DoCmd.OpenReport "打印的副本"
DoCmd.PrintOut , , , , rs.Fields(2)
DoCmd.Close acReport, "打印的副本"
rs.MoveNext
Loop

rs.Close
Set rs = Nothing

DoCmd.Close

end sub

Top

starnew 发表于：2017-04-24 13:38:38

有没有高师在？

Top

宏鹏发表于：2017-04-24 14:03:41

用针式打印机打印二联纸，跟发票一样

Top

starnew 发表于：2017-04-25 14:45:43

呵呵，服了你了

Top

麥田发表于：2017-04-27 08:31:44

[access报表][示例]更改报表的打印机设置\选择打印机打印的方法\设置打印机、纸张大小、横向纵向、打印份数的示例[Access软件网]
http://www.accessoft.com/article-show.asp?id=2445

Top

starnew 发表于：2017-04-27 12:58:37

不能达成我的目的哦

Top

starnew 发表于：2017-04-27 14:18:19

编了段傻瓜式代码来实现一份报表打印2张，出来的效果是：11 22 33 44，但是不停弹出来的打印信息有点烦心，能否把弹出来的打印信息去除吗（像“您正打打印第？页，共？页之类），还有一个，高人请帮我写段循环的代码呗。

下面代码看着多，其实也就是用EXCEL公式复制过来的，也不算多。

Private Sub Command10_Click()

DoCmd.SetWarnings False
DoCmd.OpenReport "打印的副本", acViewReport, "", "", acNormal
DoCmd.PrintOut acPages, 1, 1, acMedium, 2
DoCmd.PrintOut acPages, 2, 2, acMedium, 2
DoCmd.PrintOut acPages, 3, 3, acMedium, 2
DoCmd.PrintOut acPages, 4, 4, acMedium, 2
DoCmd.PrintOut acPages, 5, 5, acMedium, 2
DoCmd.PrintOut acPages, 6, 6, acMedium, 2
DoCmd.PrintOut acPages, 7, 7, acMedium, 2
DoCmd.PrintOut acPages, 8, 8, acMedium, 2
DoCmd.PrintOut acPages, 9, 9, acMedium, 2
DoCmd.PrintOut acPages, 10, 10, acMedium, 2
DoCmd.PrintOut acPages, 11, 11, acMedium, 2
DoCmd.PrintOut acPages, 12, 12, acMedium, 2
DoCmd.PrintOut acPages, 13, 13, acMedium, 2
DoCmd.PrintOut acPages, 14, 14, acMedium, 2
DoCmd.PrintOut acPages, 15, 15, acMedium, 2
DoCmd.PrintOut acPages, 16, 16, acMedium, 2
DoCmd.PrintOut acPages, 17, 17, acMedium, 2
DoCmd.PrintOut acPages, 18, 18, acMedium, 2
DoCmd.PrintOut acPages, 19, 19, acMedium, 2
DoCmd.PrintOut acPages, 20, 20, acMedium, 2

'm_p = True
'DoCmd.OpenReport "打印的副本"

'm_p = False
'DoCmd.OpenReport "打印的副本"

End Sub

Top

starnew 发表于：2017-04-27 14:59:42

新写了一个循环，好像不行。

Private Sub 打印循环_Click()

DoCmd.OpenReport "打印的副本", acViewReport, "", "", acNormal
a = 0
For i = 1 To 10
a = a + i
Next i
DoCmd.PrintOut acPages, i, i, acMedium, 2
End Sub

Top

leoyoung 发表于：2017-04-27 18:25:15

将docmd放在循环体内

For i = 1 To 10
.....
DoCmd.PrintOut acPages, i, i, acMedium, 2

Next i

Top

starnew 发表于：2017-04-28 12:29:39

万分感谢，LEOYOUNG！

我自已改良了一下，就是变量根据报表的总张数来循环（而不是1到10），可行的！

但是我感觉A=0，以及A=A+1是多余的代码，因为A变量无意义。

Private Sub 打印循环_Click()
DoCmd.OpenReport "打印的副本", acViewPreview, "", "", acNormal
a = 0
For i = 1 To Reports![打印的副本]![Text176]
a = a + i
DoCmd.PrintOut acPages, i, i, acMedium, 2
Next i
End Sub

Top

飞飞发表于：2019-04-15 09:30:41

循环使用DoCmd.PrintOut acPages, i, i, acMedium, 2是不可能行

当i的值足够大时，打印出来可能是乱序的，如：11，33，77，22，55，页数少时这个问题几乎不会出现

Top

总记录：10篇页次：1/1 9 1 :

Access交流中心

报表每份打印2张，如11，22，33，44，55