Я сделал этот очень простой код для печати листа с разными именами из небольшого списка.(Код печатает только те имена, где написано «ja» в столбце рядом с ним. Первая страница печатается напрямую, но затем для печати следующей страницы требуется около 30 секунд. Можете ли вы помочь мне с этим. Это мой первый маленький кодЯ написал в vba. Возможно, я допустил ошибку некоторых новичков.
Sub PrintRitblad()
Dim rijNummer As Integer
rijNummer = 6
Do While Not Worksheets("Gegevens").Cells(rijNummer, 16) = ""
If Worksheets("Gegevens").Cells(rijNummer, 17) = "ja" Then
Range("RitbladenAlle!C4").Value =
Worksheets("Gegevens").Cells(rijNummer, 16)
Worksheets("RitbladenAlle").PrintOut
rijNummer = rijNummer + 1
Else
rijNummer = rijNummer + 1
End If
Loop
End Sub