If = True Then 'check that the named range is visible (hidden named ranges are sometimes created by excel in workbooks using iferror() or sumifs().For Each nameDrawing In ActiveWorkbook.Names.'begin adding pages from drawings tab to rngPrint.rngPrint.PrintOut copies:=2, collate:=False.'must print now or drawings will not print.If Range("extra_ps2_trigger").Value > 0 Then.If Range("extra_ps_trigger").Value > 0 Then.If Range("Rocky_Trigger").Value > 0 Then.If Worksheets("Cut List").Range("shipping_trigger").Value > 0 Then.If Worksheets("Cut List").Range("metal_trigger").Value > 0 Then.If Worksheets("Cut List").Range("solid_surface_trigger").Value > 0 Then.If Worksheets("Cut List").Range("wood_assembly_trigger").Value > 0 Then.If Worksheets("Cut List").Range("laminating_trigger").Value > 0 Then.If Worksheets("Cut List").Range("upholstery_trigger").Value > 0 Then.
If Worksheets("Cut List").Range("A251").Value > 0 Then.If Worksheets("Cut List").Range("A190").Value > 0 Then.If Worksheets("Cut List").Range("A129").Value > 0 Then.If Worksheets("Cut List").Range("A68").Value > 0 Then.If Worksheets("Cut List").Range("A7").Value > 0 Then.If Worksheets("Cut List").Range("AU298").Value > 0 Then.If Worksheets("Cut List").Range("N63").Value > 0 Then.'if true then send page to rngAdd to be used in add_to_rngprint.If Worksheets("Cut List").Range("N1").Value > 0 Then.'set rngtemp = "SF1" for check in add_to_rngprint sub.'split into cutlists and inventory, pullsheets, drawings as 3 seperate print jobs.'checks each page for print needed and if true then adds page to running range "rngPrint".'add rngAdd to end of rngTemp (remember rngTemp = rngPrint until this point).'only get this far if false, meaning this is not the first time through.
'rngTemp must equal rngPrint when routine is completed.'if true then rngAdd becomes the first page in rngPrint.'lumn will only be 500 if it is the first time the routine has been run since variables were reset.
0 kommentar(er)
