Office中国论坛/Access中国论坛

标题: [求助]如何才能在点击打印按钮时都出现选择打印机的对话框？ [打印本页]

作者: secowu 时间: 2005-11-2 00:46
标题: [求助]如何才能在点击打印按钮时都出现选择打印机的对话框？
[求助]

如何才能在点击打印按钮时

都出现选择打印机的对话框？

因为，不想设那台打印机为默认，又不想指定

作者: wxjgw 时间: 2005-11-2 17:35
DoCmd.RunCommand acCmdPrint

作者: secowu 时间: 2005-11-2 20:28
DoCmd.OpenReport Me.版式, acNormal, , "[工作单号]='" & Me.工作单号 & " '" 呵呵，我是说，怎么改这句才能弹出选择打印机的对话框用了acDialog，无效

作者: sgrshh29 时间: 2005-11-2 20:50
DoCmd.DoMenuItem acFormBar, 0, 9, , acMenuVer70

作者: secowu 时间: 2005-11-2 21:00
非常感谢sgrshh29,前面加上这一句，就解决问题了。谢谢！！！！！！！

作者: secowu 时间: 2005-11-2 21:12

以下是引用sgrshh29在2005-11-2 12:50:00的发言：

DoCmd.DoMenuItem acFormBar, 0, 9, , acMenuVer70

呵呵，认真看了一打印机里出来的，竟然是窗体内容。不是那个报表内容啊

作者: secowu 时间: 2005-11-2 21:14

以下是引用wxjgw在2005-11-2 9:35:00的发言：

DoCmd.RunCommand acCmdPrint

这句也是一样，将窗体给打印出来了

作者: sgrshh29 时间: 2005-11-2 21:15
DoCmd.SelectObject acReport, "name", True

DoCmd.DoMenuItem acFormBar, 0, 9, , acMenuVer70

作者: secowu 时间: 2005-11-2 21:23

完整代码如下：感觉要能调出打印对话框让用户选择打印机，不知该改哪里

Private Sub 打印_Click()

On Error GoTo Err_打印_Click

If IsNull(Me.版式) = False Then

'DoCmd.DoMenuItem acFormBar, 0, 9, , acMenuVer70

DoCmd.OpenReport Me.版式, acNormal, , "[工作单号]='" & Me.工作单号 & " '"

Me.版式 = Null

Else

MsgBox "并且重要提醒阁下:" & vbCr & "" & vbCr & "如果您没有填写完整的工作单," & vbCr & "" & vbCr & "将无法打印出正确效果！", vbCritical, "重要提示:阁下必须选择打印版式"

Me.版式.SetFocus

End If

Exit_打印_Click:

Exit Sub

Err_打印_Click:

MsgBox Err.Description

Resume Exit_打印_Click

End Sub

[此贴子已经被作者于2005-11-2 13:27:08编辑过]

作者: sgrshh29 时间: 2005-11-2 21:43
DoCmd.OpenReport Me.版式,acViewPreview, , "[工作单号]='" & Me.工作单号 & " '",acHidden

DoCmd.SelectObject acReport, "Me.版式", True

DoCmd.DoMenuItem acFormBar, 0, 9, , acMenuVer70

试试看，应该没有问题。以后请早点贴上来，省点猜想。执行完毕后加一句代码关闭这个报表。

[此贴子已经被作者于2005-11-2 13:53:01编辑过]

作者: secowu 时间: 2005-11-2 22:13
Private Sub 打印_Click()

On Error GoTo Err_打印_Click

If IsNull(Me.版式) = False Then

DoCmd.OpenReport Me.版式, acViewPreview, , "[工作单号]='" & Me.工作单号 & " '", acHidden

DoCmd.SelectObject acReport, Me.版式, True

DoCmd.DoMenuItem acFormBar, 0, 9, , acMenuVer70

DoCmd.Close acReport, Me.版式

Me.版式 = Null

Else

MsgBox "并且重要提醒阁下:" & vbCr & "" & vbCr & "如果您没有填写完整的工作单," & vbCr & "" & vbCr & "将无法打印出正确效果！", vbCritical, "重要提示:阁下必须选择打印版式"

Me.版式.SetFocus

End If

Exit_打印_Click:

Exit Sub

Err_打印_Click:

MsgBox Err.Description

Resume Exit_打印_Click

End Sub又出现了另外一个问题，在MDE里，因为选择了报表，所以，会显示数据库窗口，而在做成的MDE里是不希望出现这个的是不是还要加个隐藏才行？

作者: secowu 时间: 2005-11-3 00:45
用了那个隐藏的语句也是不行不支持

作者: secowu 时间: 2005-11-4 21:41
牧人，出来啊，快来回答下11楼-12楼的问题，知道你能搞定的

作者: sgrshh29 时间: 2005-11-4 22:35

以下是引用secowu在2005-11-4 13:41:00的发言：

牧人，出来啊，

快来回答下11楼-12楼的问题，知道你能搞定的

这也不是什么难题，还用牧人操刀吗？

作者: sgrshh29 时间: 2005-11-4 23:00
在窗体中

Private Sub Command_Click()

Me.Visible = False

DoCmd.OpenReport "reportname", acViewPreview, , , , Me.Name

DoCmd.DoMenuItem acFormBar, 0, 9, , acMenuVer70

End Sub

在报表中

Private Sub Report_Close()

Forms(Me.OpenArgs).Visible = True

End Sub

作者: wxjgw 时间: 2005-11-4 23:46
[attach]13961[/attach]

传给做的快件封面打印的例子, 改一下还可以用的哈

作者: secowu 时间: 2005-11-5 00:06
呵呵，在MDB里测试通过

只是，还出现一个小问题：那个报表还是会显示，可以隐藏显示吗？

Private Sub 打印_Click()

On Error GoTo Err_打印_Click

If IsNull(Me.版式) = False Then

Me.Visible = False

DoCmd.OpenReport Me.版式, acViewPreview, , , , "[工作单号]='" & Me.工作单号 & " '"

DoCmd.DoMenuItem acFormBar, 0, 9, , acMenuVer70

'此时会出现报表的模样，想让它隐藏，但不影响另外一个预览命令

DoCmd.Close acReport, Me.版式

Me.版式 = Null

Else

MsgBox "并且重要提醒阁下:" & vbCr & "" & vbCr & "如果您没有填写完整的工作单," & vbCr & "" & vbCr & "将无法打印出正确效果！", vbCritical, "重要提示:阁下必须选择打印版式"

Me.版式.SetFocus

End If

Exit_打印_Click:

Exit Sub

Err_打印_Click:

MsgBox Err.Description

Resume Exit_打印_Click

End Sub

报表里这样写，经调试后通过

Option Compare Database

Option Explicit

Private Sub Report_Close()

Forms!A制单界面.Visible = True

End Sub

[此贴子已经被作者于2005-11-4 16:06:31编辑过]

作者: secowu 时间: 2005-11-5 00:11

以下是引用wxjgw在2005-11-4 15:46:00的发言：

[attach]13961[/attach]

传给做的快件封面打印的例子, 改一下还可以用的哈

呵呵， Reports(Me!选择快件)![Image0].Visible = False

上面这句可能有过，试下

作者: secowu 时间: 2005-11-5 00:14
呵呵，试了下，发觉还是隐藏不起来

原以为可以

[此贴子已经被作者于2005-11-4 16:56:04编辑过]

作者: wxjgw 时间: 2005-11-5 00:18
Reports(Me!选择快件)![Image0].Visible = False这句是打印时不打印报表中的背景图片(因为是套打)

作者: secowu 时间: 2005-11-10 01:36
只好将就用了问题已经解决

作者: secowu 时间: 2005-11-15 18:19
急啊，這個現在會將表里的全部記錄打印出來而不是選中的記錄啊

作者: secowu 时间: 2005-11-15 23:34
呵呵，发现原来是那里错了。

作者: huangyicai 时间: 2005-11-25 06:05
不错，[em05]

作者: dong_zhq 时间: 2006-12-7 18:06
'''''''''''''

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