Do not print if error
 

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

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