Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Save one worksheet as PDF?
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 |
#2
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Save one worksheet as PDF?
Do you want to create the folder ?
Where ? -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "Veronica Johnson" wrote in message ... 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 |
#3
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Save one worksheet as PDF?
On Jan 25, 4:08*pm, "Ron de Bruin" wrote:
Do you want to create the folder ? Where ? -- Regards Ron de Bruinhttp://www.rondebruin.nl/tips.htm "Veronica Johnson" wrote in ... 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- Hide quoted text - - Show quoted text - Yes, I have already created the folder in My DocumentsCust Maint on the C: drive. |
#4
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Save one worksheet as PDF?
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 "Veronica Johnson" wrote in message ... On Jan 25, 4:08 pm, "Ron de Bruin" wrote: Do you want to create the folder ? Where ? -- Regards Ron de Bruinhttp://www.rondebruin.nl/tips.htm "Veronica Johnson" wrote in ... 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- Hide quoted text - - Show quoted text - Yes, I have already created the folder in My DocumentsCust Maint on the C: drive. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
'Save current worksheet'; 'Open next worksheet' - two command buttons | Excel Discussion (Misc queries) | |||
Save worksheet to a CD | New Users to Excel | |||
Save Worksheet vs Workbook | Excel Worksheet Functions | |||
save a worksheet | Excel Discussion (Misc queries) | |||
Worksheet Buttons (Save, Save As, Cut, Paste, etc.) Not Working | Excel Worksheet Functions |