Print current record, open printer dialog box

[Jamesiv1]

I want to put a print button on my data entry form that prints the current record in a report that is laid out all nice and pretty.

I found this code that works, but it goes straight to the printer - it does not bring up the printer dialog so you can select a printer.

Private Sub RecordPrint_Click()
    Dim strWhere As String
    If Me.Dirty Then
        Me.Dirty = False
    End If
    If Me.NewRecord Then
        MsgBox "Click cancel and open a member card."
    Else
        strWhere = "[ID] = " & Me.[ID]
        DoCmd.OpenReport "MemberDetail", acViewNormal, , strWhere
    End If
End Sub

How do I get it to bring up the printer dialog?



.

[orange]

Untested, but did you try
DoCmd.OpenReport "MemberDetail", acPreview, , strWhere

[Jamesiv1]

Just tried it. Does the same thing... acPreview opens the 'pretty' report in a preview tab, acNormal sends it straight to the printer.

Still not getting a printer dialog

[Jamesiv1]

dang.

acPreview and acViewPreview open the "pretty" form in a preview window.
acPrint, acPrintOut, acNormal and acViewNormal send it straight to the printer - no printer dialog.

guess I'll just go with what I've got. Would be nice to be able to select a different printer, though

Private Sub cmdMemberPrint_Click()
    Dim strWhere As String
    If Me.Dirty Then
        Me.Dirty = False
    End If
    If Me.NewRecord Then
        MsgBox "Click Ok and open a member card."
    Else
        strWhere = "[ID] = " & Me.[ID]
        DoCmd.OpenReport "MemberDetail", acPrintOut, , strWhere
    End If
    DoCmd.RunCommand acCmdSaveRecord
    DoCmd.Close
End Sub

[ItsMe]

With Access, there is not a built in way to access those DLL files. You need to create your own Dialog Box via VBA. Here is some info on it.
http://msdn.microsoft.com/en-us/libr...ffice.11).aspx
and another example plus a couple more ideas
https://www.accessforums.net/program...ing-43166.html

[Jamesiv1]

Thank you ItsMe. I appreciate your reply.

That's a little more work than I want to do for a freebie LOL - but thank you. It prints the record Ok, and the users won't have but one printer in the office anyway.... I wanted it mainly for myself so I could print to a PDF file.

It's all good. I love my little database

[aytee111]

I usually have two buttons - one for "Print" which prints directly to the default printer and one for "Print Preview" which will bring up the report in preview mode, from there I can print it to pdf if I choose.

[Jamesiv1]

I usually have two buttons - one for "Print" which prints directly to the default printer and one for "Print Preview" which will bring up the report in preview mode, from there I can print it to pdf if I choose.

aaahhhh..... yes. Didn't think about that. The acViewPreview is opening up in a new tab, but I can make it a popup window, yes?

That will work nicely!