[Resolved] Change printer in Access 2000

[indydavid32]

I am using the following code on a command button in an Access 2000 program.

Dim x As Printer

For Each x In Printers
    If x.DeviceName = "Acrobat Distiller" Then
        Set Printer = x
        Exit For
    End If
Next

DoCmd.OpenReport "Prop_Invoice_Email", acViewPreview, , "Month(Inv_Statement_Date) = " _
& Format(Month(dteStatementDate), "00") & " And Year(Inv_Statement_Date) = " & _
Format(Year(dteStatementDate), "00")

DoCmd.PrintOut acPrintAll, , , acHigh

I want this report to print out to my Acrobat Distiller printout but it is printing to my system default printer.

Anyone have any ideas why this is happening?

Thanks