Als leek heb ik dankzij het forum "Help.nl" een exel bestand gemaakt (9Mb) met formules, lijsten, voorwaardelijke opmaak, draaitabellen en de laatste stap is een macro om vanuit een blad een bepaalde zone uit een ander blad te printen. Dit werkt goed maar blijkbaar niet perfect daar gedurende de uitvoering van de macro het beeld verspringt en ze nogal wat tijd in beslag neemt. wie kan me helpen om dit vlotter te laten gebeuren?
Code:
Sub Kooietiketten()
ThisWorkbook.RefreshAll
sPrinter = Application.ActivePrinter
Application.ActivePrinter = "EPSON ET-2750 Series op Ne04:"
' Application.ActivePrinter = "doPDF 8 op Ne05:"
Application.PrintCommunication = True
With ActiveSheet.PageSetup
.Orientation = xlPortrait
.Zoom = 68
End With
Sheets("Kooietiketten 1").Select
If Sheets("Kooietiketten 1").Range("G2") = 16 Then
Range("A2:I223").Select
Selection.PrintOut Copies:=1, Collate:=True
Sheets("TT_XL").Select
MsgBox "16 Etiketten geprint"
End If
If Sheets("Kooietiketten 1").Range("G2") = 15 Then
Range("A2:I210").Select
Selection.PrintOut Copies:=1, Collate:=True
Sheets("TT_XL").Select
MsgBox "15 Etiketten geprint"
End If
If Sheets("Kooietiketten 1").Range("G2") = 14 Then
Range("A2:I197").Select
Selection.PrintOut Copies:=1, Collate:=True
Sheets("TT_XL").Select
MsgBox "14 Etiketten geprint"
End If
If Sheets("Kooietiketten 1").Range("G2") = 13 Then
Range("A2:I184").Select
Selection.PrintOut Copies:=1, Collate:=True
Sheets("TT_XL").Select
MsgBox "13 Etiketten geprint"
End If
If Sheets("Kooietiketten 1").Range("G2") = 12 Then
Range("A2:I167").Select
Selection.PrintOut Copies:=1, Collate:=True
Sheets("TT_XL").Select
MsgBox "12 Etiketten geprint"
End If
If Sheets("Kooietiketten 1").Range("G2") = 11 Then
Range("A2:I154").Select
Selection.PrintOut Copies:=1, Collate:=True
Sheets("TT_XL").Select
MsgBox "11 Etiketten geprint"
End If
If Sheets("Kooietiketten 1").Range("G2") = 10 Then
Range("A2:I141").Select
Selection.PrintOut Copies:=1, Collate:=True
Sheets("TT_XL").Select
MsgBox "10 Etiketten geprint"
End If
If Sheets("Kooietiketten 1").Range("G2") = 9 Then
Range("A2:I128").Select
Selection.PrintOut Copies:=1, Collate:=True
Sheets("TT_XL").Select
MsgBox "9 Etiketten geprint"
End If
If Sheets("Kooietiketten 1").Range("G2") = 8 Then
Range("A2:I111").Select
Selection.PrintOut Copies:=1, Collate:=True
Sheets("TT_XL").Select
MsgBox "8 Etiketten geprint"
End If
If Sheets("Kooietiketten 1").Range("G2") = 7 Then
Range("A2:I98").Select
Selection.PrintOut Copies:=1, Collate:=True
Sheets("TT_XL").Select
MsgBox "7 Etiketten geprint"
End If
If Sheets("Kooietiketten 1").Range("G2") = 6 Then
Range("A2:I85").Select
Selection.PrintOut Copies:=1, Collate:=True
Sheets("TT_XL").Select
MsgBox "6 Etiketten geprint"
End If
If Sheets("Kooietiketten 1").Range("G2") = 5 Then
Range("A2:I72").Select
Selection.PrintOut Copies:=1, Collate:=True
Sheets("TT_XL").Select
MsgBox "5 Etiketten geprint"
End If
If Sheets("Kooietiketten 1").Range("G2") = 4 Then
Range("A2:I55").Select
Selection.PrintOut Copies:=1, Collate:=True
Sheets("TT_XL").Select
MsgBox "4 Etiketten geprint"
End If
If Sheets("Kooietiketten 1").Range("G2") = 3 Then
Range("A2:I42").Select
Selection.PrintOut Copies:=1, Collate:=True
Sheets("TT_XL").Select
MsgBox "3 Etiketten geprint"
End If
If Sheets("Kooietiketten 1").Range("G2") = 2 Then
Range("A2:I29").Select
Selection.PrintOut Copies:=1, Collate:=True
Sheets("TT_XL").Select
MsgBox "2 Etiketten geprint"
End If
If Sheets("Kooietiketten 1").Range("G2") = 1 Then
Range("A2:I16").Select
Selection.PrintOut Copies:=1, Collate:=True
Sheets("TT_XL").Select
MsgBox "1 Etiket geprint"
End If
Application.ActivePrinter = sPrinter
End Sub