[AccessD] Event only if sending report to the printer

Charlotte,

How do I get to the printer object of the report? User normally has 3 hole
paper in printer and needs to change to Print ( as opposed to preview)  the
report

Currently this code lives in the report header print event:

Private Sub ReportHeader_Print(Cancel As Integer, PrintCount As Integer)

    Dim lngRetval As Long
    
    lngRetval = MsgBox( _
        "Please make sure the correct paper is the printer for printing
Purchase Orders." & vbCrLf & "" & vbCrLf & "Click OK when ready.", _
        vbOKOnly + vbExclamation + vbSystemModal + vbDefaultButton1, _
        "Check Paper in Printer")
    
    Select Case lngRetval
        Case vbOK
    End Select
    
    'TVCodeTools ErrorHandlerStart
PROC_EXIT:
    Exit Sub
    
PROC_ERR:
    MsgBox Err.Description
    Resume PROC_EXIT
    'TVCodeTools ErrorHandlerEnd
End Sub


JOE HECHT
LOS ANGELES CA 
 jmhla at earthlink.net

Subject: RE: [AccessD] Event only if sending repo-----Original
Message-----rt to the printer

You're going to have to directly address the printer object of the
report if you want your code to intercept a paperout error, if that's
what you want to do.  If you just want to broadcase a general message to
check the paper before printing, use a custom print function behind
whatever button you're using to actually print the previewed report and
add your message there.

Charlotte Foust


-----Original Message-----
From: Joe Hecht [mailto:jmhla at earthlink.net] 
Sent: Wednesday, December 08, 2004 7:35 PM
To: 'Access Developers discussion and problem solving'; 'ACCESS-L'
Subject: [AccessD] Event only if sending report to the printer


I want to open a message box only when the report is going to the
printer.

The print event triggers on preview also and that is not the best time
for a check the paper message.

JOE HECHT
LOS ANGELES CA 
 jmhla at earthlink.net



-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com