Save one worksheet as PDF?

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Veronica Johnson - 25 Jan 2008 20:54 GMT

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>

Reply to this Message

Ron de Bruin - 25 Jan 2008 21:08 GMT

Do you want to create the folder ?

Where ?

Signature

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

> 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>

Reply to this Message

Veronica Johnson - 25 Jan 2008 22:07 GMT

> Do you want to create the folder ?
>
[quoted text clipped - 12 lines]
>
> - Show quoted text -

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

Reply to this Message

Ron de Bruin - 25 Jan 2008 22:20 GMT

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

Signature

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

On Jan 25, 4:08 pm, "Ron de Bruin" <rondebr...@kabelfoon.nl> wrote:

> Do you want to create the folder ?
>
[quoted text clipped - 13 lines]
>
> - Show quoted text -

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

Reply to this Message