Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
print pdf's with changing filenames in a macro
I have created a macro to isolate certain data based on a variable
loop. I would like to print the data to a pdf file. I was able to get it to print but it always uses the same filename; "Group" The following code in a k loop works to make fn$ the filename I desire; I checked it by sending the fn$ to sequential cells of a sheet. How can I get the pdf filename to change within the loop? Thanks for any help. Charlie s$ = Str(k) If k < 10 Then s$ = "0" & Right(s$, 1) Else s$ = Right(s$, 2) fn$ = "Group" & s$ & ".pdf" filename:=fn$ ActiveWindow.SelectedSheets.PrintOut Copies:=1 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
print pdf's with changing filenames in a macro
have you tried:
ActiveWindow.SelectedSheets.PrintOut Copies:=1, PrintToFile:=True, PrToFileName:=fn$ -- Regards, Tom Ogilvy " wrote: I have created a macro to isolate certain data based on a variable loop. I would like to print the data to a pdf file. I was able to get it to print but it always uses the same filename; "Group" The following code in a k loop works to make fn$ the filename I desire; I checked it by sending the fn$ to sequential cells of a sheet. How can I get the pdf filename to change within the loop? Thanks for any help. Charlie s$ = Str(k) If k < 10 Then s$ = "0" & Right(s$, 1) Else s$ = Right(s$, 2) fn$ = "Group" & s$ & ".pdf" filename:=fn$ ActiveWindow.SelectedSheets.PrintOut Copies:=1 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
print pdf's with changing filenames in a macro
Thanks, When I copied that to my macro, I got "Named argument not
found" compile error and it highlighted "PrToFileName:=" in my code. Any ideas? Tom Ogilvy wrote: have you tried: ActiveWindow.SelectedSheets.PrintOut Copies:=1, PrintToFile:=True, PrToFileName:=fn$ -- Regards, Tom Ogilvy " wrote: I have created a macro to isolate certain data based on a variable loop. I would like to print the data to a pdf file. I was able to get it to print but it always uses the same filename; "Group" The following code in a k loop works to make fn$ the filename I desire; I checked it by sending the fn$ to sequential cells of a sheet. How can I get the pdf filename to change within the loop? Thanks for any help. Charlie s$ = Str(k) If k < 10 Then s$ = "0" & Right(s$, 1) Else s$ = Right(s$, 2) fn$ = "Group" & s$ & ".pdf" filename:=fn$ ActiveWindow.SelectedSheets.PrintOut Copies:=1 |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
print pdf's with changing filenames in a macro
Your using xl97 or earlier? Because that argument is supported in xl2000
and later. From xl2000 help on Printout expression.PrintOut(From, To, Copies, Preview, ActivePrinter, PrintToFile, Collate, PrToFileName) -- Regards, Tom Ogilvy wrote in message oups.com... Thanks, When I copied that to my macro, I got "Named argument not found" compile error and it highlighted "PrToFileName:=" in my code. Any ideas? Tom Ogilvy wrote: have you tried: ActiveWindow.SelectedSheets.PrintOut Copies:=1, PrintToFile:=True, PrToFileName:=fn$ -- Regards, Tom Ogilvy " wrote: I have created a macro to isolate certain data based on a variable loop. I would like to print the data to a pdf file. I was able to get it to print but it always uses the same filename; "Group" The following code in a k loop works to make fn$ the filename I desire; I checked it by sending the fn$ to sequential cells of a sheet. How can I get the pdf filename to change within the loop? Thanks for any help. Charlie s$ = Str(k) If k < 10 Then s$ = "0" & Right(s$, 1) Else s$ = Right(s$, 2) fn$ = "Group" & s$ & ".pdf" filename:=fn$ ActiveWindow.SelectedSheets.PrintOut Copies:=1 |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
print pdf's with changing filenames in a macro
Very close. I looked up "printout" in the help file. It says:
PrintToFile Optional Variant. True to print to a file. Microsoft Excel prompts the user to enter the name of the output file. There's no way to specify the filename from Visual Basic. This option is not available on the Macintosh. I have a Mac with Office v.X I never figured it made a difference or I'd have mentioned it before. Any way to work around it? Thanks a lot for all of your help. Charlie Tom Ogilvy wrote: Your using xl97 or earlier? Because that argument is supported in xl2000 and later. From xl2000 help on Printout expression.PrintOut(From, To, Copies, Preview, ActivePrinter, PrintToFile, Collate, PrToFileName) -- Regards, Tom Ogilvy |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Macro to create PDF's question | Excel Discussion (Misc queries) | |||
VBA Script to Print several named ranges to PDF with cell-defined filenames | Excel Programming | |||
Macro for changing print settings | Excel Discussion (Misc queries) | |||
Linked excel charts, changing filenames generates exception | Excel Programming | |||
Changing filenames using theSaveAsCopy method | Excel Programming |