PRINTING NILELATOR 29.09.2006 23:06:01 I MADE A SPREAD SHEET TO TRACK JOBS THAT WE BID. I SET UP ALL THE FORMULAS SO ACCOMADATE 1500 JOBS. THE PROBLEM IS THATS 31 PAGES AND I DON'T WANT TO PRINT ALL OF THEM UNLESS THERE'S INFO ON THE PAGES IS THERE ANY SETTING OTHER THAN "SET PRINT AREA" SO IT WILL ONLY PRINT WHAT HAS INFORMATION ON IT

RE: PRINTING Sarah Jane 30.09.2006 03:29:01 With 1500 jobs, I don't know how practical my solution is. You can hide the rows that don't have information on them, and Excel will print only the rows still showing. To hide rows, select the rows you want hidden, then either right click and select Hide or use the Format menu to click on Rows and then select Hide. Sarah Jane "NILELATOR" wrote: [Quoted Text] > I MADE A SPREAD SHEET TO TRACK JOBS THAT WE BID. I SET UP ALL THE FORMULAS SO > ACCOMADATE 1500 JOBS. THE PROBLEM IS THATS 31 PAGES AND I DON'T WANT TO PRINT > ALL OF THEM UNLESS THERE'S INFO ON THE PAGES IS THERE ANY SETTING OTHER THAN > "SET PRINT AREA" SO IT WILL ONLY PRINT WHAT HAS INFORMATION ON IT

RE: PRINTING JLatham 30.09.2006 04:46:05 If you have one particular column that you could use to determine the last row actually used on the sheet, then you could use this macro as the basis for a routine you could call before printing the sheet to redefine the print area: Change the A and K entries to include the actual columns to be printed, and change the "B" to whatever column you know will be the longest one (one with data farthest down the sheet) and it should work. If for some reason you aren't starting your printout with row 1, then change the "1:" to the first row to be printed? You could put this as a general macro to be called manually, or use the body of it as the basis (needs some modification) within the workbook's "BeforePrint" event handler. Sub SetPrintRange() ' Dim NewPrintRange As String Const FirstColumnToPrint = "A" 'change as required Const LastColumnToPrint = "K" ' change as required Const LongestColumn = "B" ' change as required 'assumes printing from row 1 NewPrintRange = FirstColumnToPrint & "1:" & _ LastColumnToPrint & _ Trim(Str(Range(LongestColumn & "65536").End(xlUp).Row)) ActiveSheet.PageSetup.PrintArea = NewPrintRange End Sub "NILELATOR" wrote: [Quoted Text] > I MADE A SPREAD SHEET TO TRACK JOBS THAT WE BID. I SET UP ALL THE FORMULAS SO > ACCOMADATE 1500 JOBS. THE PROBLEM IS THATS 31 PAGES AND I DON'T WANT TO PRINT > ALL OF THEM UNLESS THERE'S INFO ON THE PAGES IS THERE ANY SETTING OTHER THAN > "SET PRINT AREA" SO IT WILL ONLY PRINT WHAT HAS INFORMATION ON IT

RE: PRINTING NILELATOR 30.09.2006 18:15:01 THAT WOULD WORK, BUT I PROBLEMS IS THAT I HAVE CREATED THIS FOR USE BY THE ENTIRE COMPANY AND NOT ALL ARE COMPUTOR SAVY. I'M LOOKING FOR SOMETHING THAT WILL DO IT AUTOMATIC WITH OUT HAVING TO DO ANYTHING EXCEPT HIT THE PRINT BHUTTON "Sarah Jane" wrote: [Quoted Text] > With 1500 jobs, I don't know how practical my solution is. You can hide the > rows that don't have information on them, and Excel will print only the rows > still showing. To hide rows, select the rows you want hidden, then either > right click and select Hide or use the Format menu to click on Rows and then > select Hide. > > Sarah Jane > > "NILELATOR" wrote: > > > I MADE A SPREAD SHEET TO TRACK JOBS THAT WE BID. I SET UP ALL THE FORMULAS SO > > ACCOMADATE 1500 JOBS. THE PROBLEM IS THATS 31 PAGES AND I DON'T WANT TO PRINT > > ALL OF THEM UNLESS THERE'S INFO ON THE PAGES IS THERE ANY SETTING OTHER THAN > > "SET PRINT AREA" SO IT WILL ONLY PRINT WHAT HAS INFORMATION ON IT

RE: PRINTING NILELATOR 30.09.2006 21:38:01 sounds good, i tried rondebruin's fix that's on his site www.rondebruin.nl/print i don't know if i did it wrong or what, this is the first time for me to go into code and micro writing so i don't know if i'm doing it right "JLatham" wrote: [Quoted Text] > If you have one particular column that you could use to determine the last > row actually used on the sheet, then you could use this macro as the basis > for a routine you could call before printing the sheet to redefine the print > area: > > Change the A and K entries to include the actual columns to be printed, and > change the "B" to whatever column you know will be the longest one (one with > data farthest down the sheet) and it should work. If for some reason you > aren't starting your printout with row 1, then change the "1:" to the first > row to be printed? > > You could put this as a general macro to be called manually, or use the body > of it as the basis (needs some modification) within the workbook's > "BeforePrint" event handler. > > Sub SetPrintRange() > ' > Dim NewPrintRange As String > Const FirstColumnToPrint = "A" 'change as required > Const LastColumnToPrint = "K" ' change as required > Const LongestColumn = "B" ' change as required > 'assumes printing from row 1 > > NewPrintRange = FirstColumnToPrint & "1:" & _ > LastColumnToPrint & _ > Trim(Str(Range(LongestColumn & "65536").End(xlUp).Row)) > ActiveSheet.PageSetup.PrintArea = NewPrintRange > End Sub > > "NILELATOR" wrote: > > > I MADE A SPREAD SHEET TO TRACK JOBS THAT WE BID. I SET UP ALL THE FORMULAS SO > > ACCOMADATE 1500 JOBS. THE PROBLEM IS THATS 31 PAGES AND I DON'T WANT TO PRINT > > ALL OF THEM UNLESS THERE'S INFO ON THE PAGES IS THERE ANY SETTING OTHER THAN > > "SET PRINT AREA" SO IT WILL ONLY PRINT WHAT HAS INFORMATION ON IT