Hi,

While printing excel worksheets one after the other using a macro, seems
to be a problem, I can't go further than 3 worksheets, then I get a
memory problem, is a lot of people using that printer almost at the same
time, I'm looking to a way to solve this problem.
May be one of you guys, who has experience can guide me in how to do it.

Thanks,

Fernando

Fernando,
Show your code.
Do you get the same problems when printing directly from Excel and/or other
apps ?

Maybe also play with your Spoller settings of the printer.

NickHK

"Fernando Duran" wrote in message
...
Hi,

While printing excel worksheets one after the other using a macro, seems
to be a problem, I can't go further than 3 worksheets, then I get a
memory problem, is a lot of people using that printer almost at the same
time, I'm looking to a way to solve this problem.
May be one of you guys, who has experience can guide me in how to do it.

Thanks,

Fernando

NickHK wrote:
Fernando,
Show your code.
Do you get the same problems when printing directly from Excel and/or other
apps ?

Maybe also play with your Spoller settings of the printer.

NickHK

"Fernando Duran" wrote in message
...
Hi,

While printing excel worksheets one after the other using a macro, seems
to be a problem, I can't go further than 3 worksheets, then I get a
memory problem, is a lot of people using that printer almost at the same
time, I'm looking to a way to solve this problem.
May be one of you guys, who has experience can guide me in how to do it.

Thanks,

Fernando


Hi Nick,

It's a very simple code
Sub imprimir()
'

ans = MsgBox("Do you want to print Canadian branches!!", vbYesNo)
If ans = vbNo Then
Exit Sub
End If
Dim col As Integer
Dim row As Integer
Dim con As Integer
Dim I As Integer



col = 2
row = 3
con = 3
For row = row To 20
If Sheet1.Cells(row, con - 1) = "" Then
Exit Sub
Else
ENGLISH.Cells(3, 7) = ENTRY.Cells(row, con)

con = con + 1

Sheet2.PrintOut

Sheet1.Cells(row, 5) = "Printed"
'For I = I To 30000
Sheet1.Application.Wait (Now + TimeValue("00:00:10"))
'Next I
I = 0


End If
Next row

End Sub