Macro and printing

[Cferron]

Hello again,

I have this macro:

Sub PrintPDF()
'
' PrintPDF Macro
'
'
    Application.Dialogs(xlDialogPrinterSetup).Show
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub

If I execute the macro I get this window first:

But if I hit Cancel (Annuler) the script goes on and print anyway.

Anyway I can prevent that?

Claude

 

[VoG]

Try

Sub PrintPDF()
'
' PrintPDF Macro
'
'
Dim RetVal
    RetVal = Application.Dialogs(xlDialogPrinterSetup).Show
    If RetVal = False Then Exit Sub
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub

 

[Cferron]

Works perfectly!

Thanks a 1000 times.

Claude

 

[Cferron]

Would it be possible to add the generated PDF as an attachement to the default e-mail reader (in our case outlook). Also is it possible to define the e-mail subject?

Maybe this is out of the scope of Excel or what Excel can do.

I tough it was worth asking.

Claude

 

[VoG]

Perhaps take a look here http://www.rondebruin.nl/sendmail.htm