|
Тема |
Re: VBA и принтер [re: katia~k] |
|
Автор |
alexoff ( (_)] .) |
|
Публикувано | 21.09.04 16:41 |
|
|
Предупреждавам, че следния код не съм го пробвал, защото на компютъра на който съм во момента нямам вързан принтер и не зная дали ще стане но ако някой има желание и нерви нека го пробва и каже дали дава резултат:
Sub Print1()
CheckForPrinting
For ii = 1 To Sender Step 2
ThisWorkbook.Sheets("DC" & ii).PrintOut Copies:=1
Next
If MsgBox("Да се разпечати ли втората страница? ", vbOKCancel, "Печат втора страница") = vbOK Then
Call Print2
Else
Exit Sub
End If
End Sub
Sub Print2()
CheckForPrinting
For ii = Sender To 2 Step (-2)
ThisWorkbook.Sheets("DC" & ii).PrintOut Copies:=1
Next
End Sub
|
| |
|
|
|