Verborgen cellen niet blanco afdrukken!

[monty1a]

Hallo,

Misschien een stomme vraag!

Ik heb een 8-tal pagina's boven elkaar staan in een afdrukbereik!
Dmv van verschillende macro's worden een aantal pagina's verborgen die niet van toepassing zijn.
Zo blijven er 2 pagina's over om af te drukken.

Als ik nu wil afdrukken drukt hij 6 blanco pagina's en de 2 goeie pagina's af!

Is dit een instelling ofzo?

Het is in excel 2016!

Alvast bedankt!

 

[HSV]

Alleen de zichtbare bladen worden geprint.
Te testen met 'Printpreview' ipv 'printout'.

Sub hsv()
Dim sh As Worksheet
For Each sh In Sheets
 If sh.Visible Then sh.PrintOut
Next sh
End Sub

 

[monty1a]

Helaas blijft hij 6 pagina's blanco aangeven!

 

[VenA]

Het lukt niet om jouw probleem na te bootsen. Als ik een pagina verberg dan wordt deze niet afgedrukt. Plaats even jouw bestandje. ik denk dat het verbergen van de pagina's niet helemaal goed gaat.

 

[HSV]

Het printen gaat via de macro, niet via afdrukken in het menu.
Ik vermoed dat daar je denkfout zit, maar als ik je OP nog eens nalees kan het zijn da ik de vraag helemaal verkeerd heb begrepen.

 

[monty1a]

Dat kan idd kloppen..


Hier kan je het linkje donwloaden
https://drive.google.com/open?id=0B-Lxh2_39906bG1yeTdFZERVWm8

 

[VenA]

Plaats even je bestandje en en niet via drive.google Dit is door mij iig niet te openen.

 

[monty1a]

Krijg het bestandje niet ge upload...het is 300 kb
Sorry maar ben nog niet zo'n held

 

[monty1a]

Ok...
ik heb alle afbeeldingen en extra tabbladen verwijderd!

Nu past het wel

Bekijk bijlage Standaardlijst(B).xlsmBekijk bijlage Standaardlijst(B).xlsm

 

[HSV]

Misschien moet je eens wat gaan stoeien met HPagebreaks.
Verwijder daarbij in de printereigenschap het afdrukbereik.

Sub CHIP()
'
' CHIP Macro
'
    ActiveSheet.Unprotect
    Rows.PageBreak = xlNone
    Rows("39:610").EntireRow.Hidden = False
    Rows("40:181").EntireRow.Hidden = True
    Rows("325:609").EntireRow.Hidden = True
     With ActiveSheet.HPageBreaks
        .Add Rows(182)
        .Add Rows(244)
        .Add Rows(324)
    End With
   'ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowFormattingCells:=True
End Sub

 

[monty1a]

Was al blij dat ik wist wat een macro was

Ff uitzoeken wat HPagebreaks is!