Error in VBA excel voor afdrukken

[ODD]

Hallo,

Kunnen jullie mij hiermee helpen?
Als ik op de knop gelinkt aan de macro afdrukklt klik dan drukt hij de wel het tabblad Briefblad en Afdruk af maar niet LOKALEN, Div en Bestelblad.

Hier een screenshot van de code:


Alvast bedankt!

 

[Mde]

plaats een voorbeeld bestand.
de code die er staat kan eenvoudiger zonder alle selects.

 

[cow18]

je "drukzone" zal iets geks voorstellen.
Vraag hem net voor je selecteert, dus net voor je de fout maakt, eens op via

msgbox drukzone

en dan zou je iets moeten krijgen dat er als een normaal bereik uitziet, maar in jouw geval ga je misschien ergens over de grenzen van je tabblad heen.

 

[ODD]

je "drukzone" zal iets geks voorstellen.
Vraag hem net voor je selecteert, dus net voor je de fout maakt, eens op via

msgbox drukzone

en dan zou je iets moeten krijgen dat er als een normaal bereik uitziet, maar in jouw geval ga je misschien ergens over de grenzen van je tabblad heen.

zoals dit?

Nu krijg ik geen error meer maar drukt hij wel het tabblad Bestelblad af (weliswaar op 2 bladzijdes, dus hier zit er ook nog een fout)
Hij drukt dus nog steeds niet LOKALEN en Div af.

 

[cow18]

al die selects zijn hopeloos overbodig en maken het geheel moeilijk te lezen.
Even snel uit te pols geschreven, dit is stukken eenvoudiger te lezen en te volgen

with sheets("6. Div")
drukzone=...
.pagesetup.printarea=drukzone
.printout
end with

De moeilijkheid met schermafbeeldingen is dat je ze niet kan overnemen, je moet zoals ik zonet alles overtikken.
Een voorbeeldbestandje is nog beter.

 

[snb]

Je kunt iedere gewenste selektie afdrukken met:

Sub M_snb()
   Sheet1.Range("A1:K10").PrintOut
End Sub

Die printarea is volstrekt overbodig.