Almost there. Help printing multiple sheets as one print job..
First I apologize for my earlier posts for not being able to clearly
state what I am trying to. I hope this is a little clearer and I can get the help I'm humbly seeking. I tried to explain what I want the code to do and at what point I want it to do it. If any knows for sure that its not possible to what I'm asking. I would appreciate that information as well Thanks in advance Sub doprint() ' ' doprint Macro Dim i As Integer Dim oCell As Range strjobnumber = InputBox("Start in Job Number?", " First Job to Print", 0) endjobnumber = InputBox("Finish in Job Number?", " Last Job to Print", 0) Range("I40").Select Range("I41").Select For Counter = strjobnumber To endjobnumber Sheets("Pieces").Activate Range("L5").Value = Counter ***Here I would like to grabe the value of cell J80)*** Sheets("BatchSheet1").Activate ****Here I would like tp print the number of sheet equal to the value of Cell J80 as one print job*** ****Currently it will only print one sheet befor going to next counter******* ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _ :=True Next Counter Sheets("Pieces").Activate Range("$A$1").Select End Sub |
Almost there. Help printing multiple sheets as one print job..
Corey "Little Penny" wrote in message ... First I apologize for my earlier posts for not being able to clearly state what I am trying to. I hope this is a little clearer and I can get the help I'm humbly seeking. I tried to explain what I want the code to do and at what point I want it to do it. If any knows for sure that its not possible to what I'm asking. I would appreciate that information as well Thanks in advance Sub doprint() ' ' doprint Macro Dim i As Integer Dim oCell As Range strjobnumber = InputBox("Start in Job Number?", " First Job to Print", 0) endjobnumber = InputBox("Finish in Job Number?", " Last Job to Print", 0) Range("I40").Select Range("I41").Select For Counter = strjobnumber To endjobnumber Sheets("Pieces").Activate Range("L5").Value = Counter ***Here I would like to grabe the value of cell J80)*** Sheets("BatchSheet1").Activate ****Here I would like tp print the number of sheet equal to the value of Cell J80 as one print job*** ****Currently it will only print one sheet befor going to next counter******* ActiveWindow.SelectedSheets.PrintOut From:=1, To:=Range("J80"), ' <=============== Copies:=1, Collate _ :=True Next Counter Sheets("Pieces").Activate Range("$A$1").Select End Sub |
All times are GMT +1. The time now is 01:17 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com