VBA Code- All Sheets Printing At once with select option

[harinsh]

Hi Team,

In my office every day I am printing one file which is containing 10 different sheets. Every time I need to select the sheet and print it. Is there any way to print at once? Not require to select print one by one. Please note that it is not necessarily to print all sheets it is depends on our requirement & schedule.

Kindly help me in order to executive the above requirements and provide macro codes for this.

Thanks,
Harish Kumar

 

[p45cal]

Try selecting the tabs you want to print before printing, if they're next to each other select them by holding down the shift key while you click on the first, then the last. If they're not all next to each other, hold the ctrl key down while selecting the individual sheet's tabs to be printed

 

[harinsh]

Thanks p45cal for your reply.

I will try with this by tomorrow but can we create this in forms in order to make it easier to select by user which ever he want to print the sheet.

 

[p45cal]

Thanks p45cal for your reply.

I will try with this by tomorrow but can we create this in forms in order to make it easier to select by user which ever he want to print the sheet.

Absolutely there is, but I don't have time just now.

 

[harinsh]

Thanks p45cal!

Ok..fine Just help in order select the one sheet by using 'Check Box' (code) so, that I will try to create rest of things!!!

 

[p45cal]

You will need to add a userfrom, add a listbox to it, set its MultiSelect property to 1, set its listStyle to 1.
In the initialize event of the userform have something like:

Private Sub UserForm_Initialize()
For Each sht In ThisWorkbook.Worksheets
  ListBox1.AddItem sht.Name
Next sht
End Sub

and a command button with this code attached:

Private Sub CommandButton1_Click()
FirstOne = True
For i = 0 To ListBox1.ListCount - 1
  If ListBox1.Selected(i) Then
    ThisWorkbook.Sheets(ListBox1.List(i)).Select IIf(FirstOne, True, False)
    FirstOne = False
  End If
Next i
Unload Me
ThisWorkbook.PrintPreview
End Sub

as well as buttons to cancel the operation. Also something to bring up the form, either in the before_print event or a dedicated button for it.

Sorry, I'm really out of time now.

 

[harinsh]

Many thanks for your help and precious time!!

It is working fine