Adding Excel Batch or Group Printing Option to Macro

Onegod007

New Member
Joined
Jun 3, 2015
Messages
2
We have a workbook that has three sheets. The first sheet has a list of data with multiple columns (with headers) and rows ranging from 1 to 214 entries (in this particular case), this sheet is called INPUT. The next sheet is called PSP Output and is a single page output format that grabs each line of data using offset functions and a master driver just out of the print area at the top right. The third sheet is where the simple looping printing functions in detailed. That code is as follows:

[TABLE="width: 747"]
<colgroup><col></colgroup><tbody>[TR]
[TD]PSP Rpts[/TD]
[/TR]
[TR]
[TD]STEP()[/TD]
[/TR]
[TR]
[TD]=ECHO(FALSE)[/TD]
[/TR]
[TR]
[TD][/TD]
[/TR]
[TR]
[TD]=SET.NAME("CNUM",INPUT("Enter number of copies to be printed.",1,"PSP Reports",1,100,100))[/TD]
[/TR]
[TR]
[TD]=SELECT(!$C$10)[/TD]
[/TR]
[TR]
[TD]=IF(ISBLANK(ACTIVE.CELL()),GOTO(A10))[/TD]
[/TR]
[TR]
[TD]=SELECT("R[1]C")[/TD]
[/TR]
[TR]
[TD]=GOTO(A10)[/TD]
[/TR]
[TR]
[TD]=SET.NAME("NUM",ROW(ACTIVE.CELL())-10)[/TD]
[/TR]
[TR]
[TD]=WORKBOOK.SELECT("PSP Output","PSP Output")[/TD]
[/TR]
[TR]
[TD]=FORMULA.FILL(1,!$T$1)[/TD]
[/TR]
[TR]
[TD]=IF(NUM>!$T$1,GOTO(A19))[/TD]
[/TR]
[TR]
[TD]=SELECT(!$A$1:$S$42)[/TD]
[/TR]
[TR]
[TD]=GOTO(A20)[/TD]
[/TR]
[TR]
[TD]=SELECT(!$A$1:$S$42)[/TD]
[/TR]
[TR]
[TD]=SET.PRINT.AREA()[/TD]
[/TR]
[TR]
[TD][/TD]
[/TR]
[TR]
[TD]=PRINT(1,1,1,1,FALSE,FALSE,1,FALSE,1)[/TD]
[/TR]
[TR]
[TD]=SET.NAME("CNT",!$T$1+1)[/TD]
[/TR]
[TR]
[TD]=IF(CNT>NUM,GOTO(A27))[/TD]
[/TR]
[TR]
[TD]=FORMULA.FILL(CNT,!$T$1)[/TD]
[/TR]
[TR]
[TD]=GOTO(A16)[/TD]
[/TR]
[TR]
[TD]=SET.NAME("CNUM",CNUM-1)[/TD]
[/TR]
[TR]
[TD]=IF(CNUM>0,GOTO(A15))[/TD]
[/TR]
[TR]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[/TR]
[TR]
[TD]=WORKBOOK.SELECT("INPUT","INPUT")[/TD]
[/TR]
[TR]
[TD]=SELECT(!$A$1)[/TD]
[/TR]
[TR]
[TD]=RETURN()[/TD]
[/TR]
</tbody>[/TABLE]

Now there is a button linked to this macro on the INPUT sheet that, when pressed, will print out each line of data (214 entries) using the PSP Output template in singles. I want to know if there is a function that I can add to allow me to print the data 1-214 as one batch so that I can simply PDF all of the output reports. Let me know if I need to be more specific as I do not believe this is an overly complicated process but I am not exactly excel macro trained. I know enough to get myself in trouble, if you know what I mean.
 

Excel Facts

How to find 2nd largest value in a column?
MAX finds the largest value. =LARGE(A:A,2) will find the second largest. =SMALL(A:A,3) will find the third smallest

Forum statistics

Threads
1,223,276
Messages
6,171,138
Members
452,381
Latest member
Nova88

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top