Using VBA to print a report based off day of week

[jo15765]

I have this code:

Sub printReport()
Dim sDate As String
DoCmd.SetWarnings.False
sDate = Format(Date, "ddd")
If sDate = "Mon" Then
    DoCmd.OpenReport "Rpt_Monday", acViewPreview
End If
If sDate = "Tue" Then
    DoCmd.OpenReport "RPT_Tuesday", acViewPreview
End If

'here is where I try to print
Dim prt As Printer
Set prt = Application.Printer
Application.Printer = Application.Printers("Lexmark")
DoCmd.PrintOut
Set Application.Printer = prt
End Sub

However I get a compile error on the prt As Printer saying User-Definted type not defined

This is Access 2000, Win 7

[ssanfu]

A2000 does not have a Printer object or the Printers collection. They were added in A2002.

Abert Kallal had some code that might help you.

http://www.kallal.ca/msaccess/msaccess.html