te printen uren strookjes

[JMo]

Geachte heer/mevrouw,

Wij gebruiken een excel sheet voor de uren verantwoording.
De code die ik gebruik is;

Sub printstrookMacro4()
'
' printstrookMacro4 Macro
' De macro is opgenomen op 31-12-2008 door JaapM.
'
     With ActiveSheet.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
        .Orientation = xlPortrait
    End With
'
    Range("F9").Select
    ' Application.Goto Reference:="printenstrook1"
    ActiveSheet.PageSetup.PrintArea = "$Ff$66:$Fl$297"
    ' ActiveWindow.View = xlPageBreakPreview
    ActiveWindow.Zoom = 100
    ActiveWindow.View = xlNormalView
End Sub

Dit is een print area voor heel wat strookjes.

Mijn probleem is dat de strookjes niet allemaal keurig op A4 (Portrait) komen maar bijvoorbeeld
de helft op pagina 2 en vervolgens pagina 3 weer helemaal gevuld. Het print area is goed ingesteld
en alle strookjes worden wel geprint.

Hoe krijg ik nu alle strookjes gevuld op de pagina's?

groet,
Jaap

 

[spaarie]

Jaap,
Het zou erg goed uitkomen als je het bestand kan plaatsen ontdaan van gevoelige informatie. Zodat de helper het probleem niet hoeft na te bootsen.

Misschien heb je ander hier wat aan.

    With ActiveSheet.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
        .Orientation = xlPortrait
[COLOR="#FF0000"][B]        .FitToPagesTall = 1
        .FitToPagesWide = 1[/B][/COLOR]
    End With

 

[JMo]

Dat helpt helaas niet, is dit alleen een Excel probleem? Het schalen van de pagina's gaat inderdaad mis!

 

[HSV]

Misschien.

        [COLOR=#ff0000].PageSetup.Zoom = False[/COLOR]
        .PageSetup.FitToPagesWide = 1
        .PageSetup.FitToPagesTall = 1

 

[JMo]

De te printen strookjes komen nu op een a4, bij de preview voor het afdrukken heb ik vervolgens gekozen
voor "niet aanpassen" bladen afdrukken op ware grootte. Dit geeft niet het gewenste resultaat. Ik heb 7 pagina's
nodig terwijl ik ongeveer 6 pagina's aan strookjes heb.

 

[JMo]

De page setup is bij mijn weten ok. Nog toegevoegd
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver

Is mijn page setup goed?