N
neilwebb
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
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