Print Button for Current Record ?

[StGermain]

If anybody knows how to fix this Print" button, I'll be grateful!



GOAL: Print just the displayed record.

PROBLEM: Clicking the "Print" button . . . nothing happens.

Form "view code":

Private Sub cmdPrint_Click()
'Print current record
'using rptENVELOPE.
If IsNull(Me!ID) Then
MsgBox "Please select a valid record", _
vbOKOnly, "Error"
Exit Sub
End If
DoCmd.OpenReport "ENVELOPE", , , _
"ID = " & Me!ID
End Sub



FORM ("Contacts"):


REPORT ("ENVELOPE"):

[Micron]

Made boo boo in interpretation. Another good example of why you should use code tags with proper indentation to make it easier to read.

[Welshgasman]

Here we go

Walk through your code line by line.

It *look* OK to me, but who knows.?
You are not expecting it to open are you, it will just print?

[StGermain]

Correct. Just to print.

[StGermain]

Thanks for your reply.

However, I do not understand the "boo boo" instructions.

If you can fix my code, maybe that would help?

[Micron]

Compare what you must have got in the email notification to what the post ended up being. I mis-read your code. I agree with Welshgasman - it looks ok from a code perspective and you need to step through it and report what happens. Put a break at the beginning and step through (by clicking your button). IF it doesn't run at all, then somehow your code is disconnected from your control. In that case, re-select the event in the property sheet for the button. All I can do at the moment to "fix" anything is the presentation, like this:

Private Sub cmdPrint_Click()
'Print current record using rptENVELOPE

If IsNull(Me!ID) Then
   MsgBox "Please select a valid record", vbOKOnly, "Error"
   Exit Sub
End If

DoCmd.OpenReport "ENVELOPE", , , "ID = " & Me!ID
End Sub

Last, I would use Me.anything (dot) not Me!anything Any Me! reference is ignored upon compile, so a misspelled reference won't get caught until run time, which will then raise an error. I also see you are not using Option Explicit. A wiser person than me once said "if you don't use Option Explicit, you deserve what you get."

[StGermain]

Thanks Micron! You figured it out.

I replaced my Form Code with YOUR code . . . and it now prints 1 record. Great.

DIFFERENCE:

YOUR line . . . . 'Print current record using rptENVELOPE

MY line . . . 'Print current record using rptENVELOPE. (has a period at the end!!!)

Well, go figure.

Lah-dee-dah

picky-picky-picky

THANKS to everybody.

[Welshgasman]

What!!!??
That is a comment line, should not matter a jot?

[Micron]

That's definitely not the answer; something else changed. You said it didn't run at all and not only would a period at the end of a comment line not raise an error, it certainly would not cause the code to not run. How did you get to the code procedure to make the change - from the property sheet? The only other potential issue I can see is your use of the line continuation character (i.e. cannot tell if your syntax is correct, which is why you should cut and paste code within code tags) but again, that would not cause it to fail to run either.