convert multiple sheets into PDF
hi,
i have some code to convert multiple sheets to PDF. i can get up to 3 sheets into one PDF file, but when i do anything more than that it only prints the last sheet selected instead of all of them. here is my sample: Sheets(Array("VGA Summary", "1Q Test", "1N Test")).Select ActiveWindow.SelectedSheets.PrintOut , ActivePrinter:="PDFCreator" i would like to add more sheet names to the array, but when i do it wont work. thanks in advance, geebee |
convert multiple sheets into PDF
I never used PDFCreator but you can do this
Sheets(Array("VGA Summary", "1Q Test", "1N Test")).Copy Add your other sheets in the array You have a new workbook now with all your sheet create a pdf of this workbook and delete the file -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "geebee" (noSPAMs) wrote in message ... hi, i have some code to convert multiple sheets to PDF. i can get up to 3 sheets into one PDF file, but when i do anything more than that it only prints the last sheet selected instead of all of them. here is my sample: Sheets(Array("VGA Summary", "1Q Test", "1N Test")).Select ActiveWindow.SelectedSheets.PrintOut , ActivePrinter:="PDFCreator" i would like to add more sheet names to the array, but when i do it wont work. thanks in advance, geebee |
convert multiple sheets into PDF
hi,
i am not sure what you mean by this. i mean what would be the code? is there a better way to write the coee instead of using an array? thanks in advance, geebee "Ron de Bruin" wrote: I never used PDFCreator but you can do this Sheets(Array("VGA Summary", "1Q Test", "1N Test")).Copy Add your other sheets in the array You have a new workbook now with all your sheet create a pdf of this workbook and delete the file -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "geebee" (noSPAMs) wrote in message ... hi, i have some code to convert multiple sheets to PDF. i can get up to 3 sheets into one PDF file, but when i do anything more than that it only prints the last sheet selected instead of all of them. here is my sample: Sheets(Array("VGA Summary", "1Q Test", "1N Test")).Select ActiveWindow.SelectedSheets.PrintOut , ActivePrinter:="PDFCreator" i would like to add more sheet names to the array, but when i do it wont work. thanks in advance, geebee |
convert multiple sheets into PDF
Something like this
Dim wb As Workbook Sheets(Array("VGA Summary", "1Q Test", "1N Test")).Copy Set wb = ActiveWorkbook wb.PrintOut , ActivePrinter:="PDFCreator" wb.Close False -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "geebee" (noSPAMs) wrote in message ... hi, i am not sure what you mean by this. i mean what would be the code? is there a better way to write the coee instead of using an array? thanks in advance, geebee "Ron de Bruin" wrote: I never used PDFCreator but you can do this Sheets(Array("VGA Summary", "1Q Test", "1N Test")).Copy Add your other sheets in the array You have a new workbook now with all your sheet create a pdf of this workbook and delete the file -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "geebee" (noSPAMs) wrote in message ... hi, i have some code to convert multiple sheets to PDF. i can get up to 3 sheets into one PDF file, but when i do anything more than that it only prints the last sheet selected instead of all of them. here is my sample: Sheets(Array("VGA Summary", "1Q Test", "1N Test")).Select ActiveWindow.SelectedSheets.PrintOut , ActivePrinter:="PDFCreator" i would like to add more sheet names to the array, but when i do it wont work. thanks in advance, geebee |
convert multiple sheets into PDF
hi,
i tried your code recommendation. basically what it did was copy the sheets to a new workbook. now everything works fine as long as you have 3 sheets or less. but when you have more than 3 sheets, only the last one is saved as the pdf. why is this? thanks in advance, geebee "Ron de Bruin" wrote: Something like this Dim wb As Workbook Sheets(Array("VGA Summary", "1Q Test", "1N Test")).Copy Set wb = ActiveWorkbook wb.PrintOut , ActivePrinter:="PDFCreator" wb.Close False -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "geebee" (noSPAMs) wrote in message ... hi, i am not sure what you mean by this. i mean what would be the code? is there a better way to write the coee instead of using an array? thanks in advance, geebee "Ron de Bruin" wrote: I never used PDFCreator but you can do this Sheets(Array("VGA Summary", "1Q Test", "1N Test")).Copy Add your other sheets in the array You have a new workbook now with all your sheet create a pdf of this workbook and delete the file -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "geebee" (noSPAMs) wrote in message ... hi, i have some code to convert multiple sheets to PDF. i can get up to 3 sheets into one PDF file, but when i do anything more than that it only prints the last sheet selected instead of all of them. here is my sample: Sheets(Array("VGA Summary", "1Q Test", "1N Test")).Select ActiveWindow.SelectedSheets.PrintOut , ActivePrinter:="PDFCreator" i would like to add more sheet names to the array, but when i do it wont work. thanks in advance, geebee |
convert multiple sheets into PDF
Sorry I not know the program PDFCreator.
With the Excel 2007 program you can print the whole workbook http://www.rondebruin.nl/pdf.htm Do you not have a option to do this ? -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "geebee" (noSPAMs) wrote in message ... hi, i tried your code recommendation. basically what it did was copy the sheets to a new workbook. now everything works fine as long as you have 3 sheets or less. but when you have more than 3 sheets, only the last one is saved as the pdf. why is this? thanks in advance, geebee "Ron de Bruin" wrote: Something like this Dim wb As Workbook Sheets(Array("VGA Summary", "1Q Test", "1N Test")).Copy Set wb = ActiveWorkbook wb.PrintOut , ActivePrinter:="PDFCreator" wb.Close False -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "geebee" (noSPAMs) wrote in message ... hi, i am not sure what you mean by this. i mean what would be the code? is there a better way to write the coee instead of using an array? thanks in advance, geebee "Ron de Bruin" wrote: I never used PDFCreator but you can do this Sheets(Array("VGA Summary", "1Q Test", "1N Test")).Copy Add your other sheets in the array You have a new workbook now with all your sheet create a pdf of this workbook and delete the file -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "geebee" (noSPAMs) wrote in message ... hi, i have some code to convert multiple sheets to PDF. i can get up to 3 sheets into one PDF file, but when i do anything more than that it only prints the last sheet selected instead of all of them. here is my sample: Sheets(Array("VGA Summary", "1Q Test", "1N Test")).Select ActiveWindow.SelectedSheets.PrintOut , ActivePrinter:="PDFCreator" i would like to add more sheet names to the array, but when i do it wont work. thanks in advance, geebee |
All times are GMT +1. The time now is 08:48 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com