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.
[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.