Print Additive to file
 

You couldn't divert the print to an xls file - you could just copy the page
from the Statements sheet to another workbook


The code in macro looks like:
For i = 1 To 100

Worksheets("Statements").Cells(4, 2).Value = Worksheets
("Details").Cells(i, 1).Value

worksheets("Statements").Range("A1:J20").copy Destination:=_
Workbooks("Record.xls").Worksheets(1).cells(1,1) _
.offset(i-1*20,0)
Worksheets("Statements").PrintOut

Next i

--
Regards,
Tom Ogilvy

"Jean" wrote in message
...
Hi all,

I have a macro in Excel that print for each member (row)
in "Details" sheet the "Statements" sheet.
Printing to printer no problem.
Since "PrintOut" command runs for each row, how can I
divert the output to a specific file (print additive to
the bottom of a file) preferably XLS type file.

The code in macro looks like:
For i = 1 To 100

Worksheets("Statements").Cells(4, 2).Value = Worksheets
("Details").Cells(i, 1).Value

Worksheets("Statements").PrintOut

Next i