Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Printing problem
I have this small macro, that after printing 3pages, just give an error,
I guess it need some time of pause between every page, but I don't know much about this language, (VBA) can someone help me? Thanks, Fernando CODE Private Sub CommandButton1_Click() ans = MsgBox("Do you want to print faxes?", vbYesNo) If ans = vbNo Then Exit Sub End If Dim col As Integer Dim row As Integer Dim counter As Integer Dim I As Integer col = 2 row = 2 counter = 1 For row = row To 20 If Sheet8.Cells(row, counter) = "" Then Exit Sub Else Sheet1.Cells(3, 7) = Sheet8.Cells(row, counter) counter = counter + 1 Sheet1.Cells(5, 3) = Sheet8.Cells(row, counter) counter = counter + 1 Sheet1.Cells(5, 6) = Sheet8.Cells(row, counter) counter = counter + 1 Sheet1.Cells(5, 9) = Sheet8.Cells(row, counter) counter = counter + 1 Sheet1.Cells(5, 12) = Sheet8.Cells(row, counter) counter = counter + 1 counter = 1 Sheet1.PrintOut Sheet8.Cells(row, 5) = "PRINTED" For I = I To 300 Next I I = 0 End If Next row End Sub |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Excel 2003 printing problem--printing 1 document on 2 pages | Excel Discussion (Misc queries) | |||
Printing problem | New Users to Excel | |||
Printing problem | Excel Discussion (Misc queries) | |||
Printing Problem | Charts and Charting in Excel | |||
Printing problem | Excel Discussion (Misc queries) |