jproffer
08-30-2008, 08:58 AM
Basically, I want a code to save, print (as fast draft), and close a file...but if the file is new (no path to which to save) then do not print, do not close, and open the saveas window. I just cant figure out the code for the save part. I've tried:
If Application.Path <> "" Then
Application.Save
Goto 1
Else
If Msgbox("your worksheet has not been printed or saved.",vbOKOnly) = vbOK Then
Application.Dialogs(xlDialogSaveAs).Show
Exit Sub
1
'print and close code is below this and would be skipped if path is nothing
Any help is greatly appreciated.
Also, what is the command for printing as a fast draft? .PrintQuality=(what #)
If Application.Path <> "" Then
Application.Save
Goto 1
Else
If Msgbox("your worksheet has not been printed or saved.",vbOKOnly) = vbOK Then
Application.Dialogs(xlDialogSaveAs).Show
Exit Sub
1
'print and close code is below this and would be skipped if path is nothing
Any help is greatly appreciated.
Also, what is the command for printing as a fast draft? .PrintQuality=(what #)