Print dialog command works on PC but not MAC

I am running the following code to print using a dialogue box in a worksheet that I am using. The problem is, when tested on a PC (2007, 2013, 360) everything works. I have sent the file out at work and people using Macs are currently unable to print. I was wondering if anyone out there knows what is going on.

            'Prints the Report
            MsgBox ("Load pink paper into the printer." & vbNewLine & "Press 'OK' when done.")
            If Application.Dialogs(xlDialogPrinterSetup).Show = True Then
                With Sheets("Print")
                    .Visible = True
                    .PrintOut Copies:=1, Collate:=True
                    .Visible = False
                End With
                Application.ScreenUpdating = True
                Worksheets("Program List").Activate
                MsgBox ("The report has been printed")
            Else
                Worksheets("Print").Visible = False
                Worksheets("Program List").Activate
                MsgBox ("The print has been canceled")
            End If

While debugging, the error occurred (Macs only) at this line

 If Application.Dialogs(xlDialogPrinterSetup).Show = True Then

Any help would be greatly appreciated!

I figured it out! I was unable to get it to use the if print is true feature on the mac, but I am not worried about it. I hope that this can help somebody else!

            'Prints the Report
            MsgBox ("Load pink paper into the printer." & vbNewLine & "Press 'OK' when done.")
            #If Mac Then
                Application.Dialogs(xlDialogPrint).Show
                    Application.ScreenUpdating = True
                    Worksheets("Program List").Activate
                     Sheets("Print").Visible = False
                     MsgBox ("Thank you")
            #Else
                If Application.Dialogs(xlDialogPrinterSetup).Show = True Then
                    With Sheets("Print")
                        .Visible = True
                        .PrintOut Copies:=1, Collate:=True
                        .Visible = False
                    End With
                    Application.ScreenUpdating = True
                    Worksheets("Program List").Activate
                    MsgBox ("The report has been printed")
                Else
                   Worksheets("Print").Visible = False
                   Worksheets("Program List").Activate
                    MsgBox ("The print has been canceled")
                End If
            #End If
            End If