Print Several Pages as One Job?
 

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

Print Several Pages as One Job?
 

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

Print Several Pages as One Job?
 

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

Print Several Pages as One Job?
 

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

Print Several Pages as One Job?
 

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.

Print Several Pages as One Job?
 

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.

Print Several Pages as One Job?
 

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

Print Several Pages as One Job?
 

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.