Printing from a form

[Orlan]

I have a form with two control buttons. One sends an email based on the form,
the other prints a label based on the form, controled by an autonumber ID on
the form. In the past this has always worked for me, but now it won't print
the label (the label is blank). If I choose the menu Record, Refresh, it
works correctly.

Using requery or Save in the coding prior to printing doesn't do it.

Any thing else I can try?

coding on the button is:

Private Sub cmdPrintLabels_Click()
On Error GoTo Err_cmdPrintLabels_Click

Dim stDocName As String

stDocName = "lblStoreLabel"
DoCmd.OpenReport stDocName, acViewPreview, , "[ID] =
Forms!frmAddRecievingEmail![ID]"
'DoCmd.OpenReport stDocName, acViewNormal, , "[ID] =
Forms!frmAddRecievingEmail![ID]"
Exit_cmdPrintLabels_Click:
Exit Sub

Err_cmdPrintLabels_Click:
MsgBox Err.Description
Resume Exit_cmdPrintLabels_Click

End Sub

 

[John W. Vinson]

I have a form with two control buttons. One sends an email based on the form,
the other prints a label based on the form, controled by an autonumber ID on
the form. In the past this has always worked for me, but now it won't print
the label (the label is blank). If I choose the menu Record, Refresh, it
works correctly.

Using requery or Save in the coding prior to printing doesn't do it.

Any thing else I can try?
coding on the button is:

Try putting a line in the code to explicitlly save the record before the
OpenReport line:

DoCmd.RunCommand acCmdSaveRecord

 

[Orlan]

Thanks, that worked

Try putting a line in the code to explicitlly save the record before the
OpenReport line:

DoCmd.RunCommand acCmdSaveRecord