Office中国论坛/Access中国论坛

标题: 请教！如何用代码控制只打印报表的某页？ [打印本页]

作者: sxgaobo 时间: 2011-11-5 08:45
标题: 请教！如何用代码控制只打印报表的某页？
如何用代码控制只打印报表的某页？如只打印报表的第一页。

作者: pq318 时间: 2011-11-5 11:18
Public Sub Command2_Click()
On Error GoTo Err_Command2_Click
DoCmd.SetWarnings False
Dim stemp As String
Dim stemp1 As String
Dim stemp2 As String
If MsgBox("是否打印", vbYesNo) = vbYes Then
stemp1 = "INSERT INTO 品质管理表21(Lable2,Lable6,Lable20,Lable3,Lable7,Lable33,Lable9,Lable35,lable5,Lable31,Lable19,Lable11,Lable21) SELECT Lable2,Lable6,Lable20,Txt,Lable7,Lable33,Lable9,Lable35,Lable5,Lable31,Tet ,Lable11,Time() FROM 品质管理表2 "
DoCmd.RunSQL stemp1
Me.Lable20 = Mid(Me.Lable20, 1, 11) & Format(Right(Me.Lable20, 3) + 1, "000")
DoCmd.OpenReport "标签查询8", acViewPreview
DoCmd.PrintOut , 1, 1 '注意看看这个地方就好了
DoCmd.Close acReport, "标签查询8"
stemp = "DELETE * FROM 品质管理表2"
DoCmd.RunSQL stemp
Me.Requery
Me.品质管理表查询6子窗体.Form.Requery
Else
Me.Requery
Me.品质管理表查询6子窗体.Form.Requery
End If
Exit_Command2_Click:
Exit Sub

Err_Command2_Click:
MsgBox Err.Description
Resume Exit_Command2_Click

End Sub

作者: sxgaobo 时间: 2011-11-5 21:57
本帖最后由 sxgaobo 于 2011-11-5 22:01 编辑

谢谢pq318！
不行啊，只是生成了个mdi文件啊！我做了个例子，麻烦朋友们给看看啊！！！

作者: sxgaobo 时间: 2011-11-6 18:53
哪位有简单点的办法啊？！

作者: sxgaobo 时间: 2011-11-6 18:54
哪位有简单点的办法啊？！

作者: sxgaobo 时间: 2011-11-6 18:55
哪位有简单点的办法啊？！

作者: sxgaobo 时间: 2011-11-6 18:56
哪位有简单点的办法啊？！

作者: roych 时间: 2011-11-7 23:26

sxgaobo 发表于 2011-11-5 21:57
谢谢pq318！
不行啊，只是生成了个mdi文件啊！我做了个例子，麻烦朋友们给看看啊！！！

请设置你的打印机（百分之八十以上是设置了虚拟打印机）。

作者: andymark 时间: 2011-11-14 22:23
PrintOut 有PAGES属性
DoCmd.PrintOut acPages, 1, 1

作者: purplerose 时间: 2015-8-21 20:39
想知道

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)