This browser is no longer supported.
Upgrade to Microsoft Edge to take advantage of the latest features, security updates, and technical support.
![](data:image/svg+xml, %3Csvg xmlns='http://www.w3.org/2000/svg' height='64' class='font-weight-bold' style='font: 600 30.11764705882353px "SegoeUI", Arial' width='64'%3E%3Ccircle fill='hsl(121.6, 41%, 21%)' cx='32' cy='32' r='32' /%3E%3Ctext x='50%25' y='55%25' dominant-baseline='middle' text-anchor='middle' fill='%23FFF' %3EDP%3C/text%3E%3C/svg%3E)
I have a list box that contains the names of all the tabs in the Excel workbook and the following macro to do a print preview:
Sub print_sh()
Dim i As Long, c As Long
Dim SheetArray() As String
With ActiveSheet.ListBox1
For i = 0 To .ListCount - 1
If .Selected(i) Then
ReDim Preserve SheetArray(c)
SheetArray(c) = .List(i)
c = c + 1
End If
Next i
End With
Sheets(SheetArray()).PrintPreview
End Sub
But I cannot figure out how to create a macro to save the selected sheets as a single pdf.
![](data:image/svg+xml, %3Csvg xmlns='http://www.w3.org/2000/svg' height='64' class='font-weight-bold' style='font: 600 30.11764705882353px "SegoeUI", Arial' width='64'%3E%3Ccircle fill='hsl(172.8, 53%, 26%)' cx='32' cy='32' r='32' /%3E%3Ctext x='50%25' y='55%25' dominant-baseline='middle' text-anchor='middle' fill='%23FFF' %3EBS%3C/text%3E%3C/svg%3E)
What purpose is served by SheetArray? Could you not print immediately when Selected(i) is true?
Consider building a new worksheet (possibly in a new workbook). When selected(i) is true, copy the contents of the selected worksheet into the new worksheet after any existing contents. You can then print this new worksheet as a single pdf.
If you like, you can add some title information to the new worksheet before you copy each selected worksheet.
Honestly, I don't know what I'm doing. I got that from a YouTube video and it did what I needed.
If you want to perform a task that Excel cannot do natively, you need to add something of your own.
One approach might be to add some manual post processing to what you already have. As worksheets are previewed, save each to a unique pdf. Then use a pdf tool such as PDF24 to combine them into a single pdf.
Another approach would be to modify the existing macro. There are a lot of free macro training videos available online Learn enough to add the additional capability you need.