Use Default Printer Function?

[ribhead]

I'm trying to use the default printer function but I'm getting an arguement not optional alarm. What is it that I'm missing?

Private Sub cmdprint_Click()

Call My_Print

End Sub
Function My_Print(frmblankreport As Form) As Boolean

frmblankreport.UseDefaultPrinter = True
DoCmd.PrintOut
DoCmd.Close acForm, "frmblankreport"
DoCmd.OpenForm "frmmainmenu"

End Function

Thanks, Rib

Bartender:Hey aren't you that rope I threw out an hour ago?

Rope:No, I'm a frayed knot.

 

[PHV]

Call My_Print
vs
Function My_Print(frmblankreport As Form) As Boolean
When you call My_Print you have to supply a Form object as argument.

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ222-2244

 

[VBslammer]

[tt]Call My_Print(Me)[/tt]

VBSlammer

Unemployed in Houston, Texas