Sub GaNaarPrintPreview()
Application.ScreenUpdating = False
Dim PrintTab As String
Dim i As Integer
Dim y As Integer
Dim s As String
Dim Rijen As Integer
Dim VrijeRijen As Integer
Dim EersteLegeRij As Integer
Dim LaatsteRij As Integer
PrintTab = ActiveSheet.Name + "p"
Sheets(PrintTab).Cells.EntireRow.Hidden = False
Dim b As Range
With Sheets(PrintTab)
For Each b In .Range(.Cells(1, 1), .Cells(.Range("A100").End(xlUp).Row, 1))
If b.Value = 2 Then
b.EntireRow.Hidden = True
End If
Next b
End With
With Sheets(PrintTab)
.Range(.Cells(1, 1), .Cells(.Range("A100").End(xlUp).Row, 42)).SpecialCells(xlCellTypeVisible).Copy
End With
' rijen tellen zonder de verborgen lijnen
Dim MyRowCount As Integer
Dim MyRange As Range
Dim c As Range
With Sheets(PrintTab)
For Each c In .Range(.Cells(1, 1), .Cells(.Range("A100").End(xlUp).Row, 1))
If (c.Value = 1) And (c.EntireRow.Hidden = False) Then
MyRowCount = MyRowCount + 1
End If
Next c
End With
Rijen = MyRowCount
LaatsteRij = 61 'HIER MOET AUTOMATISCH DE LAATSTE RIJ WORDEN GEVONDEN
' EersteLegeRij = Sheets("print").Range("A65535").End(xlUp).Offset(1, 0).Row
EersteLegeRij = Sheets("print").Range("A65535").End(xlUp).Offset(1, 0).Row
VrijeRijen = LaatsteRij - EersteLegeRij
'uitzoeken of uitvoer nog op pagina past; zo niet, dan naar volgende pagina.
If Rijen <= VrijeRijen Then
With Sheets("print").Range("A65535").End(xlUp).Offset(1, 0)
.PasteSpecial Paste:=xlPasteFormats
.PasteSpecial Paste:=xlPasteValues
End With
Else
EersteLegeRij = LaatsteRij + 1
Sheets("print").Cells(EersteLegeRij, 1).PasteSpecial xlPasteFormats
Sheets("print").Cells(EersteLegeRij, 1).PasteSpecial xlPasteValues
End If
Sheets("print").Select
Range("a1").Select
pr_printknoppen.Show
Application.ScreenUpdating = True
End Sub
