Microsoft
Software
Hardware
Network
Question : Why won't this work
In a couple of my routines I display a list of errors using a simple msgbox. Some users want to be able to print that so I want to use the following code to print it off.
bPrint = MsgBox(sMessage & vbNewLine & vbNewLine & "Do you want to print this message?", vbYesNo, "Print")
if bPrint then DoCmd.OpenReport "rptSysMessage", acViewPreview, , , , PrintMessage
rptSysMessage is an unbound report that contains a single unbound variable called PrintMessage and I have loaded the following code in the On Report_Load event: Me.PrintMessage = Me.OpenArgs
I have also tried moving the code into the On_Activate Event too.
Try as I will I can't seem to get the OpenArgs value to get to the report so all I get is a blank page. Can anyone tell me what I am doing wrong?
Answer : Why won't this work
Create a variable named PrintText in the report and pass the args like this:
if iPrint = vbYes then DoCmd.OpenReport "rptSysMessage", acViewPreview, , , , "PrintText="PrintMessage
Random Solutions
Batch File to dump list of Hostnames to IP Addresses
Quick Batch File Rename Question
DataGrid Silverlight 3.0 Calculated Value In a Column
Code: 0x80012017 The package path referenced an object that cannot be found: "\Package\Subplan.Disable"<wbr />
WSUS Scheduled Install Time for systems in different time zones
Mounting Images using IMAGEX
Multiselect
Operation must use an updatable query. (Error 3073)
Start app minimized in vb.net (2005) Compact Framework
Excel VBA To Calculate ISO Week Number Count For A Given Month / Year