Try this...You will first need to define the name of your data range.
rowcount = Range("Output").Rows.Count
Sheets("Report").Select
printrange = "A1:K" & rowcount
Sheets("Report").PageSetup.printarea = printrange
This message was edited by larry on 2002-04-05 13:31