Save one worksheet as PDF?

[Veronica Johnson]

Hi again,

I have 6 sheets in my workbook. I want to save the sheet called "RFQ"
as a PDF, copy it to a new folder called "RFQ to Admin" and then name
the file as whatever company I have listed on the Order worksheet in
cell B4. Is this possible, or am I out of control? <g>

 

[Ron de Bruin]

Do you want to create the folder ?

Where ?

 

[Veronica Johnson]

Do you want to create the folder ?

Where ?

--

Regards Ron de Bruinhttp://www.rondebruin.nl/tips.htm






- Show quoted text -

Yes, I have already created the folder in My Documents>Cust Maint on
the C: drive.

 

[Ron de Bruin]

Test this one Veronica

Check the path and sheet name here before you run the macro

FilenameStr = "C:\My Documents\Cust Maint\RFQ to Admin\" & _
Sheets("Order").Range("B4") & ".pdf"


Sub RDB_PDF_ActiveSheet_Test()
Dim FilenameStr As String

If Dir(Environ("commonprogramfiles") & "\Microsoft Shared\OFFICE" _
& Format(Val(Application.Version), "00") & "\EXP_PDF.DLL") <> "" Then

FilenameStr = "C:\My Documents\Cust Maint\RFQ to Admin\" & _
Sheets("Order").Range("B4") & ".pdf"

Sheets("RFQ").ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=FilenameStr, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
MsgBox "You can find the PDF file here : " & FilenameStr

Else
MsgBox "PDF add-in Not Installed"
End If
End Sub


--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm

Do you want to create the folder ?

Where ?

--

Regards Ron de Bruinhttp://www.rondebruin.nl/tips.htm






- Show quoted text -

Yes, I have already created the folder in My Documents>Cust Maint on
the C: drive.