cow18
Terugkerende gebruiker
- Lid geworden
- 24 mei 2008
- Berichten
- 4.276
- Besturingssysteem
- Windows
- Office versie
- Excel365
Code:
Sub Print_Grafiek_1_3_5()
With Sheets("grafieken")
.Range("A32:A64,A94:A124").EntireRow.Hidden = True 'verberg grafieken 2 en 4
With .PageSetup '1 en ander juist zetten
.PrintArea = "$A$1:$N$155" 'printbereik
.LeftMargin = 0 'alle margins extreem op 0 zetten, aanpassen indien gewenst
.RightMargin = 0
.TopMargin = 0
.BottomMargin = 0
.HeaderMargin = 0
.FooterMargin = 0
.Orientation = xlPortrait 'staand afdrukken
.Zoom = False 'niet met de schaal werken
.FitToPagesWide = 1 'exact op 1 pagina in de breedte
.FitToPagesTall = 1 'en in de lengte
.CenterHorizontally = True 'horizontaal in het midden
.CenterVertically = True 'vertikaal in het midden
End With
.PrintPreview 'printvoorbeeld
.Cells.EntireRow.Hidden = False 'rijen terug zichtbaar maken = grafiek 2 en 4 terug tonen
End With
End Sub