VBA export to PDF very slow

[Shadkng]

The below code used to export to PDF saves fast on one computer and very slow on another similar computer. On the slow computer I use Foxit and not Adobe. Does that matter? Do I have to have Foxit as an add-on in excel? If I save the file manually using the menu and save as it seems to work fine. Any help would be appreciated.

Sub DETAIL_PDF()
Dim response As String
Dim PrintAreaString As String
response = InputBox("Enter column letter for 2nd part of range", "Enter Data")
Application.ScreenUpdating = False
With ActiveSheet
PrintAreaString = "$A$3:$" & Trim(UCase(response)) & "$" & .Range("B1").Value
If response <> "" Then
.PageSetup.PrintArea = PrintAreaString
.PageSetup.Orientation = xlLandscape
.PageSetup.Zoom = False
.PageSetup.FitToPagesWide = 1
.PageSetup.FitToPagesTall = False
.PageSetup.LeftMargin = 36
.PageSetup.TopMargin = 72
.PageSetup.RightMargin = 36
.PageSetup.BottomMargin = 36
End If
End With
ChDir ActiveWorkbook.Path & ""
fileSaveName = "FRIEDLAND QUOTE " & Range("B6").Value & " " & "JOB " & Range("B7").Value & " " & Range("A15").Value & " " & Range("B15").Value & " " & Range("AB15").Value & " " & Range("AD15").Value & Range("B9").Value & " PCS" & " " & Format(Date, "mmddyy")
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
fileSaveName _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True '(change this to "False" to prevent the file from opening after saving)
Application.ScreenUpdating = True
End Sub

 

[Kenneth Hobson]

I don't see anything you could change that would speed it up. I would run an anti-virus and CCleaner.exe to clean up temp files.

Things to tidy up:
1. $ and case in printareastring won't mean anything.

PringAreaString = "A3:" & response & [B1]

2. I don't use ChDir, I just concatenate the path. e.g.

fileSaveName = ActiveWorkbook.Path & "\" & "FRIEDLAND QUOTE " & [B6] " " & "JOB " & [B7] & " " & [A15] & " " & [B15' & " " & _
[AB15] & " " & [AD15] & [B9] & " PCS" & " " & Format(Date, "mmddyy")

 

[Shadkng]

I used your code in #2 and it works fine and I see it's a lot cleaner. As far as the slowness, I'm just wondering if it's a setting in my excel. Does excel require any software to export to PDF, such as adobe? Or an add-in?

 

[Kenneth Hobson]

It comes with its own pdf print driver.

 

[Shadkng]

I found the problem which had nothing to do with excel...my default printer was the culprit although not sure why. So I switched the default and it works fine. Thanks

 

[Kenneth Hobson]

One can set a default printer and switch back but you need to know the printer name to switch to.

If a one off deal, your manual change should suffice.