hi patrick

thanks very much for your reply about automatic printing.

how do i implement this information into my excel worksheet???

to refresh your memory, i have copied your reply below

Sub Main()
dim rSource as Range
' copy the data
SET rSource = Range("Source")
With Range("Target").Resize(rSource.Rows.Count,rSource. Columns.Count)
.Value = rSource.Value
End With
' now print it
rSource.PrintOut
End Sub

the question i am asking is how do i get this information into my exce
spreadsheet???

regards

neil web

--
neilweb
-----------------------------------------------------------------------
neilwebb's Profile: http://www.excelforum.com/member.php...fo&userid=2445
View this thread: http://www.excelforum.com/showthread.php?threadid=38052