Force Single-Sided Printing with Printout Method

'
Dim rngPrint As Range
Dim rngTemp As Range
Dim rngAdd As Range




Private Sub add_to_rngprint()




On Error Resume Next




'rngTemp.column will only be 500 if it is the first time the routine has been run since variables were reset
If rngTemp.Column = 500 Then
    'if true then rngAdd becomes the first page in rngPrint
    Set rngPrint = rngAdd
    'rngTemp must equal rngPrint when routine is completed
    Set rngTemp = rngPrint
    Exit Sub
End If




'only get this far if false, meaning this is not the first time through
'add rngAdd to end of rngTemp (remember rngTemp = rngPrint until this point)
Set rngPrint = Union(rngTemp, rngAdd)
'rngTemp must equal rngPrint when routine is completed
Set rngTemp = rngPrint
'go back to quick_print




End Sub




Sub Quick_Print()




On Error Resume Next
'checks each page for print needed and if true then adds page to running range "rngPrint"




'split into cutlists and inventory, pullsheets, drawings as 3 seperate print jobs




'set rngtemp = "SF1" for check in add_to_rngprint sub
Set rngTemp = Range("SF1")




'check if print needed = true
If Worksheets("Cut List").Range("N1").Value > 0 Then
'if true then send page to rngAdd to be used in add_to_rngprint
Set rngAdd = Range("Purchase")
Call add_to_rngprint
End If
'repeat for every page in MCL




If Worksheets("Cut List").Range("N63").Value > 0 Then
Set rngAdd = Range("Deductions")
Call add_to_rngprint
End If




If Worksheets("Cut List").Range("AU298").Value > 0 Then
Set rngAdd = Range("Shipping_List")
Call add_to_rngprint
End If




If Worksheets("Cut List").Range("A7").Value > 0 Then
Set rngAdd = Range("Cutlist_1")
Call add_to_rngprint
End If




If Worksheets("Cut List").Range("A68").Value > 0 Then
Set rngAdd = Range("Cutlist_2")
Call add_to_rngprint
End If




If Worksheets("Cut List").Range("A129").Value > 0 Then
Set rngAdd = Range("Cutlist_3")
Call add_to_rngprint
End If




If Worksheets("Cut List").Range("A190").Value > 0 Then
Set rngAdd = Range("Cutlist_4")
Call add_to_rngprint
End If




If Worksheets("Cut List").Range("A251").Value > 0 Then
Set rngAdd = Range("Cutlist_5")
Call add_to_rngprint
End If




If Worksheets("Cut List").Range("A312").Value > 0 Then
Set rngAdd = Range("Cutlist_6")
Call add_to_rngprint
End If




If Worksheets("Cut List").Range("A373").Value > 0 Then
Set rngAdd = Range("Cutlist_7")
Call add_to_rngprint
End If




If Worksheets("Cut List").Range("AT1").Value > 0 Then
Set rngAdd = Range("Banding_Detail1")
Call add_to_rngprint
End If




If Worksheets("Cut List").Range("AT65").Value > 0 Then
Set rngAdd = Range("Banding_Detail2")
Call add_to_rngprint
End If




'must print now because pull sheets need qty 2




rngPrint.PrintOut




Set rngPrint = Nothing
Set rngTemp = Range("SF1")




'begin adding pull sheets to rngPrint




If Worksheets("Cut List").Range("sheetcover_trigger").Value > 0 Then
Set rngAdd = Range("Sheetcover")
Call add_to_rngprint
End If




If Worksheets("Cut List").Range("andy_ran_trigger").Value > 0 Then
Set rngAdd = Range("andy_ran")
Call add_to_rngprint
End If




If Worksheets("Cut List").Range("maxx_biesse_trigger").Value > 0 Then
Set rngAdd = Range("maxx_biesse")
Call add_to_rngprint
End If




If Worksheets("Cut List").Range("cutting_trigger").Value > 0 Then
Set rngAdd = Range("Cutting")
Call add_to_rngprint
End If




If Worksheets("Cut List").Range("bumper_trigger").Value > 0 Then
Set rngAdd = Range("Bumper_Edge")
Call add_to_rngprint
End If




If Worksheets("Cut List").Range("counter_panel_trigger").Value > 0 Then
Set rngAdd = Range("Counter_Panel")
Call add_to_rngprint
End If




If Worksheets("Cut List").Range("cut_sew_trigger").Value > 0 Then
Set rngAdd = Range("Cut_Sew")
Call add_to_rngprint
End If




If Worksheets("Cut List").Range("upholstery_trigger").Value > 0 Then
Set rngAdd = Range("Upholstery")
Call add_to_rngprint
End If




If Worksheets("Cut List").Range("laminating_trigger").Value > 0 Then
Set rngAdd = Range("Laminating")
Call add_to_rngprint
End If




If Worksheets("Cut List").Range("wood_assembly_trigger").Value > 0 Then
Set rngAdd = Range("Wood_Assembly")
Call add_to_rngprint
End If




If Worksheets("Cut List").Range("solid_surface_trigger").Value > 0 Then
Set rngAdd = Range("Solid_Surface")
Call add_to_rngprint
End If




If Worksheets("Cut List").Range("metal_trigger").Value > 0 Then
Set rngAdd = Range("Metal")
Call add_to_rngprint
End If




If Worksheets("Cut List").Range("shipping_trigger").Value > 0 Then
Set rngAdd = Range("Shipping")
Call add_to_rngprint
End If




If Range("Rocky_Trigger").Value > 0 Then
Set rngAdd = Range("Rocky_PS")
'Yo, Adrian! I did it!
Call add_to_rngprint
End If




If Range("extra_ps_trigger").Value > 0 Then
Set rngAdd = Range("Extra_PS")
Call add_to_rngprint
End If




If Range("extra_ps2_trigger").Value > 0 Then
Set rngAdd = Range("Extra_PS2")
Call add_to_rngprint
End If




'must print now or drawings will not print. idk why
rngPrint.PrintOut copies:=2, collate:=False




'reset range variables
Set rngPrint = Nothing
Set rngAdd = Nothing
Set rngTemp = Range("SF1")




'begin adding pages from drawings tab to rngPrint




Dim nameDrawing As Name
'loop through all named ranges
For Each nameDrawing In ActiveWorkbook.Names
    
    If nameDrawing.RefersToRange.Visible = True Then 'check that the named range is visible (hidden named ranges are sometimes created by excel in workbooks using iferror() or sumifs()
        If nameDrawing.RefersToRange.Worksheet.Name = "Drawings" Then 'check if the named range is on the "Drawings" tab
            If nameDrawing.RefersToRange.Item(1, 10).Value > 0 Then 'check that the top right cell is greater than 1
                Set rngAdd = nameDrawing.RefersToRange 'add range to print set
                Call add_to_rngprint
            End If
        End If
    End If
    
Next nameDrawing








'print pages from drawings tab
rngPrint.PrintOut




End Sub