Print.Out Question from DialogPrinter

[Pinaceous]

Hi All,

In calling xlDialogPrinterSetup from:

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

Sheets("Data").PrintOut From:=1, To:=12


End Sub

When the PrintOut dialog icon is then presented on the screen, if a user cancels this portion of the sub's action; How do I provide:

  'MsgBox "Canceled Print"

Thanks,
Pinaceous

 

[Yongle]

Application.Dialogs(xlDialogPrinterSetup).Show returns a Boolean value

    If Application.Dialogs(xlDialogPrinterSetup).Show Then
        Sheets("Data").PrintOut From:=1, To:=12
    Else
        MsgBox "Cancelled Print"
    End If

 

[Pinaceous]

Hey Yongle,

What I would like based on your post:

Application.Dialogs(xlDialogPrinterSetup).Show returns a Boolean value

Is there a way to block the applications Boolean value cancel button ?

Many thanks,
Paul

 

[Yongle]

Try (untested)

[COLOR=#ff0000]Repeat: [/COLOR]
   If Application.... Then

   Else
       [COLOR=#ff0000]  GoTo Repeat[/COLOR]
   End If

 

[Pinaceous]

Hey your last, the repeat is acting like a loop, right?

I can put a loop on it as well then, right?

 

[Yongle]

Yes and Yes

 

[Pinaceous]

Could you please provide a code for the proposed loop?

 

[Yongle]

This is the loop forcing the user to select a printer

Sub PromptPrinter()
Repeat:
    If Application.Dialogs(xlDialogPrinterSetup).Show Then
        Sheets("Data").PrintOut From:=1, To:=12
    Else
        MsgBox "Cancelling is not permitted"
        GoTo Repeat
    End If
End Sub

Could you please provide a code for the proposed loop?

Please explain what you are trying to achieve
What is in your loop?