Userform with option buttons to print selected sheets

  • Thread starter Thread starter Roger on Excel
  • Start date Start date
R

Roger on Excel

Can anyone help me with code to help me buid a userform in which a user
selects the sheets in the workbook to print using option buttons ?

Once the user has selected the sheets another button prints them

Can anyone help?

Thankyou,

Roger
 
How about using a combo box. Place a combobox and command button in a
userform and try the below code


Private Sub CommandButton1_Click()
ThisWorkbook.Sheets(Me.ComboBox1.Text).PrintOut Copies:=1, Collate:=True
End Sub

Private Sub UserForm_Initialize()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Sheets
Me.ComboBox1.AddItem ws.Name
Next
End Sub
 
And if you want multiple choice, use a listbox. Modified code:

Private Sub CommandButton1_Click()
Dim L As Long
For L = 0 To Me.ListBox1.ListCount - 1
If Me.ListBox1.Selected(L) = True Then
ThisWorkbook.Sheets(Me.ListBox1.List(L)).PrintOut Copies:=1, Collate:=True
End If
Next
End Sub

Private Sub UserForm_Initialize()
Dim ws As Worksheet
Me.ListBox1.MultiSelect = fmMultiSelectMulti
For Each ws In ThisWorkbook.Sheets
Me.ListBox1.AddItem ws.Name
Next
End Sub

HTH. Best wishes Harald
 
Thanks Harald,

This solution with the list box is perfect for me

Best regards

Roger
 
Back
Top