Userforms - Add to print area help please

[Tubig]

Hello all,

Is there a way that instead of sending each individual sheet to the printer separately, to just add the selected ones to the print area and "then" print the print area? I have about 80 different page ranges and each range gets sent to the printer separately. I end up having 80 jobs in my printer job list.

This is my code so far (unmodified):


Private Sub CheckBox1_Click()

End Sub

Private Sub CommandButton1_Click()

If CheckBox1.Value = True Then Range("RANGE_WATER_AND_SEWER").PrintOut Copies:=1
If CheckBox2.Value = True Then Range("RANGE_ELECTRICAL_SERVICE").PrintOut Copies:=1
If CheckBox3.Value = True Then Range("RANGE_EXCAVATION_AND_BACKFILL").PrintOut Copies:=1
If CheckBox4.Value = True Then Range("RANGE_DRILL_PILES").PrintOut Copies:=1
If CheckBox5.Value = True Then Range("RANGE_CRIBBING_MATERIAL").PrintOut Copies:=1
If CheckBox6.Value = True Then Range("RANGE_GRADE_BEAM_MATERIAL").PrintOut Copies:=1
If CheckBox7.Value = True Then Range("RANGE_CRIBBING_LABOUR_WALLS").PrintOut Copies:=1


Unload UserForm1


End Sub

Private Sub UserForm_Click()

End Sub

Private Sub UserForm_Initialize()

CheckBox1.Caption = "WATER_AND_SEWER"
CheckBox2.Caption = "ELECTRICAL_SERVICE"
CheckBox3.Caption = "EXCAVATION_AND_BACKFILL"
CheckBox4.Caption = "DRILL_PILES"
CheckBox5.Caption = "CRIBBING_MATERIAL"
CheckBox6.Caption = "GRADE_BEAM_MATERIAL"
CheckBox7.Caption = "CRIBBING_LABOUR_WALLS"


End Sub

Any help would be greatly appreciated! Thanks.

 

[Tubig]

Sorry to bump, but can anyone help with this?