Home |
Search |
Today's Posts |
#1
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
Is it possible by some means (add-on?) to select which pages of an Excel
2000 workbook you want to print, and then send them to a print driver as one print job containing all of those pages? The goal is to create a single PDF file with all the selected pages, or to send them as serial pages of a single fax transmission from the PC. Thanks, Richard Fry (not a programmer) Illinois - USA |
#2
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
Hi Richard
Do you mean pages or Sheets -- Regards Ron de Bruin http://www.rondebruin.nl "Richard Fry" wrote in message ... Is it possible by some means (add-on?) to select which pages of an Excel 2000 workbook you want to print, and then send them to a print driver as one print job containing all of those pages? The goal is to create a single PDF file with all the selected pages, or to send them as serial pages of a single fax transmission from the PC. Thanks, Richard Fry (not a programmer) Illinois - USA |
#3
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
I have a Workbook with 11 tabbed sheets, four of which have defined print
areas. At different times I would like to select and assemble 2, 3, or 4 of those sheets to send as a single print job, or write to a single PDF file. R. Fry "Ron de Bruin" wrote in message ... Hi Richard Do you mean pages or Sheets |
#4
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
Hi
If you select the sheets with the CTRL key down you can print it manual. Don't forget to ungroup after you print With VBA you can do this You can use a userform Add a listbox and a button on the userform In the properties of the listbox set Multiselect to 1 Add this code in the Userform module Private Sub CommandButton1 Click() Dim arr() As String Dim N As Integer N = 0 For i = 0 To ListBox1.ListCount - 1 If ListBox1.Selected(i) = True Then N = N + 1 ReDim Preserve arr(1 To N) arr(N) = ListBox1.List(i) End If Next i If N = 0 Then MsgBox "You must select at least one Sheet" Exit Sub End If ThisWorkbook.Worksheets(arr).PrintOut End Sub Private Sub UserForm Initialize() For Each ws In ActiveWorkbook.Sheets If ws.Visible = True Then Me.ListBox1.AddItem (ws.Name) End If Next End Sub -- Regards Ron de Bruin http://www.rondebruin.nl "Richard Fry" wrote in message ... I have a Workbook with 11 tabbed sheets, four of which have defined print areas. At different times I would like to select and assemble 2, 3, or 4 of those sheets to send as a single print job, or write to a single PDF file. R. Fry "Ron de Bruin" wrote in message ... Hi Richard Do you mean pages or Sheets |
#5
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
Thanks for your comments. I have tried selecting the sheets I want
as you suggest, but when sending them to my PDF print driver the sheets are saved as individual files (1 per sheet). The workaround is to combine the separate PDF pages/files into a single PDF file using Acrobat, but that is rather a pain. I am looking and hoping for a better solution. I'll try your VBA code, and thanks for sending it. R. Fry "Ron de Bruin" wrote in message ... Hi If you select the sheets with the CTRL key down you can print it manual. Don't forget to ungroup after you print With VBA you can do this <snip. |
#6
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
I never try to print to a PDF file Richard
But read this webpage http://www.mvps.org/dmcritchie/excel/pdf.htm Maybe you find what you need -- Regards Ron de Bruin http://www.rondebruin.nl "Richard Fry" wrote in message ... Thanks for your comments. I have tried selecting the sheets I want as you suggest, but when sending them to my PDF print driver the sheets are saved as individual files (1 per sheet). The workaround is to combine the separate PDF pages/files into a single PDF file using Acrobat, but that is rather a pain. I am looking and hoping for a better solution. I'll try your VBA code, and thanks for sending it. R. Fry "Ron de Bruin" wrote in message ... Hi If you select the sheets with the CTRL key down you can print it manual. Don't forget to ungroup after you print With VBA you can do this <snip. |
#7
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
"NickHK" wrote
Using PDF995, I get 1 PDF file containing all selected pages ___________ Nick, are your sheets all identically formatted? From what others have said here, if they are _not_, Excel will send them as separate print jobs to whatever print device/driver is selected, even though the sheets have first been selected as a group. I think that 'feature' of Excel is my problem, as my sheets are not all identically formatted. |
#8
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
Richard,
Using PDF995, I get 1 PDF file containing all selected pages NickHK "Richard Fry" wrote in message ... Thanks for your comments. I have tried selecting the sheets I want as you suggest, but when sending them to my PDF print driver the sheets are saved as individual files (1 per sheet). The workaround is to combine the separate PDF pages/files into a single PDF file using Acrobat, but that is rather a pain. I am looking and hoping for a better solution. I'll try your VBA code, and thanks for sending it. R. Fry "Ron de Bruin" wrote in message ... Hi If you select the sheets with the CTRL key down you can print it manual. Don't forget to ungroup after you print With VBA you can do this <snip. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
My excel spreadsheet won't print or print preview all the pages? | Excel Worksheet Functions | |||
Number of pages in worksheet doesn't match Print Preview pages | Excel Discussion (Misc queries) | |||
how do i print pages of pages example (1of3) | Excel Discussion (Misc queries) | |||
Print Area ranges print on separate pages? | Excel Discussion (Misc queries) | |||
How to print odd pages and even pages seperately in Excel. | Excel Discussion (Misc queries) |