Print Several Pages as One Job?

R

Richard Fry

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
 
R

Richard Fry

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
 
R

Ron de Bruin

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
 
R

Richard Fry

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
 
R

Richard Fry

"NickHK" wrote
Using PDF995, I get 1 PDF file containing all selected pages
Click to expand...
___________

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