Beste mensen;
Ik probeer een vast aantal (D t/m M) kolommen met een variabel aantal rijen te printen.
Met een filter krijg ik het aantal gewenste rijen. Nu het printen. Met onderstaande code krijg ik niet alles op 1 pagina (FitToPagesWide = 1?). Als dit niet lukt mag ik een aantal kolommen weglaten. Bijvoorbeeld alleen de kolommen D E H J L M printen. Ik zie het gewoonweg niet. Wie kan helpen. Alvast mijn grote dank.
Private Sub CommandButton21_Click()
Dim rng As Range
Application.ScreenUpdating = False
With ActiveSheet.PageSetup
.Orientation = xlLandscape
.PaperSize = xlPaperA4
.FitToPagesWide = 1
End With
If MsgBox("Selectie lijst printen. Weet u het zeker?", vbOKCancel) = vbOK Then
Set rng = Range("D1", Range("D" & Rows.Count).End(xlUp))
With rng.Columns(10)
.Parent.PrintOut
End With
End If
Application.ScreenUpdating = True
ActiveSheet.Range("$A$1:$N$2000").AutoFilter Field:=1
End Sub
Ik probeer een vast aantal (D t/m M) kolommen met een variabel aantal rijen te printen.
Met een filter krijg ik het aantal gewenste rijen. Nu het printen. Met onderstaande code krijg ik niet alles op 1 pagina (FitToPagesWide = 1?). Als dit niet lukt mag ik een aantal kolommen weglaten. Bijvoorbeeld alleen de kolommen D E H J L M printen. Ik zie het gewoonweg niet. Wie kan helpen. Alvast mijn grote dank.
Private Sub CommandButton21_Click()
Dim rng As Range
Application.ScreenUpdating = False
With ActiveSheet.PageSetup
.Orientation = xlLandscape
.PaperSize = xlPaperA4
.FitToPagesWide = 1
End With
If MsgBox("Selectie lijst printen. Weet u het zeker?", vbOKCancel) = vbOK Then
Set rng = Range("D1", Range("D" & Rows.Count).End(xlUp))
With rng.Columns(10)
.Parent.PrintOut
End With
End If
Application.ScreenUpdating = True
ActiveSheet.Range("$A$1:$N$2000").AutoFilter Field:=1
End Sub