Do not print if error
Sub MetroparkPrint()
Dim sName as String
' MetroParkPrint Macro
' Macro to save and then print an invoice
sName = "c:\Metropark\" & Range("J10") & ".xls"
if dir(sName) < "" then exit sub
ActiveWorkbook.SaveAs sName
With ActiveSheet.PageSetup
.Orientation = xlLandscape
.Zoom = 80
.PrintErrors = xlPrintErrorsDisplayed
End With
ActiveWindow.SelectedSheets.PrintOut Copies:=1,
Collate:=True
End Sub
--
Regards,
Tom Ogilvy
"Edgar" wrote in message
...
Hi
I have the following code which saves an invoice to my hd
and then prints it.
Is it possible for the macro to stop if the invoice
already exists on my hard disk?
Sub MetroparkPrint()
' MetroParkPrint Macro
' Macro to save and then print an invoice
ActiveWorkbook.SaveAs ("c:\Metropark\" & Range("j10")
& ".xls")
With ActiveSheet.PageSetup
.Orientation = xlLandscape
.Zoom = 80
.PrintErrors = xlPrintErrorsDisplayed
End With
ActiveWindow.SelectedSheets.PrintOut Copies:=1,
Collate:=True
End Sub
Thanks
Edgar
|