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

secowu

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

用了那个隐藏的语句也是不行不支持

secowu

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

sgrshh29

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



牧人，出来啊，

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

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

sgrshh29

在窗体中

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

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

secowu

呵呵，在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

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



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

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

上面这句可能有过，试下

secowu

呵呵，试了下，发觉还是隐藏不起来

原以为可以

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

wxjgw

Reports(Me!选择快件)![Image0].Visible = False这句是打印时不打印报表中的背景图片(因为是套打)