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.
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.