automatisch afdrukbereik bepalen (VBA)
Agnes
Ik ben op zoek naar een manier om het afdrukbereik
automatisch te laten bepalen. Onderstaande code van Pieter
heb ik al ergens opgevist, maar ik kan er niet helemaal
mee uit de voeten. Waar ik naar op zoek ben is een code
waarin ik het aantal kolommen wat uitgeprint moet worden
ingeef in combinatie met de laatst gevulde rij. Dit
laatste doet de code van Pieter al, maar dat van die
kolommen kan nergens vinden.
Groeten,
Agnes
***********************
Uitgaande dat de gehele sheet af gedrukt moet worden.
Sub AfdrukBereikBepalen()
With ActiveSheet
.PageSetup.PrintArea = .UsedRange.AddressLocal
(True, True)
End With
End Sub
Als alleen 1 (aaneengesloten) tabel afgedrukt moet worden
verander dan .PrintArea in;
De tabel start op B2
.PageSetup.PrintArea = .Range
("B2").CurrentRegion.AddressLocal(True, True)
*****************************************
Pieter
keepitcool
jouw (Pieter's) oplossing is nogal vreemd. de bestaande PrintArea op nul
zetten, en excel doet t automatisch
dim ws
for each ws in activeworkbook
ws.PageSetup.PrintArea = ""
next
of voor 1 sheet
ActiveSheet.PageSetup.PrintArea = ""
en klaar is Pieter.
maar jij nog niet!
ALS het een aaneengelosten gebied betreft kan het volgende:
ActiveSheet.PageSetup.PrintArea = "d:k"
excel slaat automatisch het "braakliggende terrein" onder de laatste
regel over.
ALS er tussenliggende kolommen zijn die je NIET wilt printen, kun je de
kolom breedte op 0 zetten.
Dqat zou je als volgt kunnen doen:
With ActiveSheet
.PageSetup.PrintArea = "B:H"
.Columns(3).Hidden = True
.Columns(5).Hidden = True
.PrintOut
.Columns.Hidden = False
.PageSetup.PrintArea = ""
End With
keepITcool
< email : keepitcool chello nl (with @ and .) >
< homepage: http://members.chello.nl/keepitcool >