Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Userform with option buttons to print selected sheets
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Userform with option buttons to print selected sheets
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 -- Jacob "Roger on Excel" wrote: 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 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Userform with option buttons to print selected sheets
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 "Jacob Skaria" wrote in message ... 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 -- Jacob "Roger on Excel" wrote: 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 |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Userform with option buttons to print selected sheets
Thanks Harald,
This solution with the list box is perfect for me Best regards Roger "Harald Staff" wrote: 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 "Jacob Skaria" wrote in message ... 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 -- Jacob "Roger on Excel" wrote: 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 . |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Forms Option Buttons(Can be right mouse selected when sheet is loc | Excel Discussion (Misc queries) | |||
Option buttons: How to get the selected option from a group? | Excel Programming | |||
Counting selected option buttons in column? | Excel Programming | |||
SIMPLE UserForm w/ 2 OPTION BUTTONS | Excel Programming | |||
SIMPLE UserForm w/ 2 OPTION BUTTONS | Excel Programming |