Saving PDF Problem

[austin350s10]

I am using the following line of code to save a document as a PDF:

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Documents and Settings\" & Application.UserName & "\Local Settings\Temp\QAM-Report.pdf", Quality:=xlQualityMinimum, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False

I works perfect if the user have a printer installed but I just found out if the user does not have a printer installed I get the following error code:

Is there any way around this?

 

[GJB]

Not to state the obvious but if you are trying to use a device that's not present on a certain computer there are 2 ways to solve that problem.

1: install the PDF writing software (pfd printer)

2: exempt those computers by doing a check in your code so that if the PDF printer is not available they get a message like:

to use this function you need application X to be found at location Y etc.

Sincerely,

 

[austin350s10]

That would be perfect. Maybe something that checks the users machine for a PDF Printer before getting too far into the code.

If they don't have PDF Printer maybe a MsgBox telling them what to do, where to download PDF Printer, ect...

If PDF Printer detected then continue with the rest of the code.

How would the code for a check system like this look?

 

[GJB]

from excel help:

Sub InitializeMatrix(Var1, Var2, Var3, Var4)
    On Error GoTo ErrorHandler
    . . .
    Exit Sub
ErrorHandler:
    . . .
    Resume Next
End Sub

meaning that if you put the On Error GoTo ErrorHandler before the pdf write function and and make a ErrorHandler: sub with the appropriate meaage you're covered.

Sincerely,

 

[austin350s10]

If i include the following:

On Error GoTo ErrorHandler
    Exit Sub
ErrorHandler:
    MsgBox "Sorry"
    Resume Next

        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Documents and Settings\" & Application.UserName & "\Local Settings\Temp\QAM-Report.pdf", Quality:=xlQualityMinimum, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False

I get nothing the code just stops. Is this the right way to write this?

 

[GJB]

Sub InitializeMatrix(Var1, Var2, Var3, Var4)
    On Error GoTo ErrorHandler
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Documents and Settings\" & Application.UserName & "\Local Settings\Temp\QAM-Report.pdf", Quality:=xlQualityMinimum, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False
    Exit Sub
ErrorHandler:
   MsgBox "Sorry you need application X to perform the operation"
    Resume Next
End Sub

presumably ...

Sincerely,