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

secowu

[求助]

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

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

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

dong_zhq

'''''''''''''

huangyicai

不错，[em05]

secowu

呵呵，发现原来是那里错了。

secowu

急啊，這個現在會將表里的全部記錄打印出來而不是選中的記錄啊

secowu

只好将就用了问题已经解决

wxjgw

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

secowu

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

原以为可以

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

secowu

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



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

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

上面这句可能有过，试下

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编辑过]