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

secowu

[求助]

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

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

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

wxjgw

DoCmd.RunCommand acCmdPrint

secowu

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

sgrshh29

    DoCmd.DoMenuItem acFormBar, 0, 9, , acMenuVer70

secowu

非常感谢sgrshh29,前面加上这一句，就解决问题了。谢谢！！！！！！！

secowu

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

    DoCmd.DoMenuItem acFormBar, 0, 9, , acMenuVer70

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

secowu

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

DoCmd.RunCommand acCmdPrint

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

sgrshh29

DoCmd.SelectObject acReport, "name", True

DoCmd.DoMenuItem acFormBar, 0, 9, , acMenuVer70

secowu

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



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

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

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

DoCmd.DoMenuItem acFormBar, 0, 9, , acMenuVer70

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

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