afdrukken meerdere afdrukbereiken

Status
Niet open voor verdere reacties.
K

Karag68

Gebruiker
Lid geworden
25 jan 2008
Berichten
111
ik gebruik onderstaande code om van een bestand blad 12 en 17 in 1 printopdracht af te drukken.

ReDim Preserve shts(0)
shts(0) = Sheets(12).Name
ReDim Preserve shts(1)
shts(1) = Sheets(17).Name
Sheets(shts).PrintOut , , Copies:=1

Nu heb ik in blad 12, 2 dynamische afdrukbereiken nodig:
Bereik 1: A:K regel 1 tot maximaal regel 100
Bereik 2: M:S regel 1 tot maximaal regel 200
Heeft iemand een idee hoe ik dit in bovenstaande code kan toevoegen?

Alvast bedankt.
 
Waarom moet het in 1 printopdracht? Waarom een array opbouwen als je maar twee vaste elementen hebt?
Code: 
sheets(array(12,17)).printout
zal wel hetzelfde doen.

Zit er ook een minimum aan het aantal regels?
Om verschillende bereiken af te drukken kan je zoiets gebruiken
Code: 
Union(Sheets(1).Range("A1:A10"), Sheets(1).Range("M1:M20")).PrintPreview
 
Hallo VenA, bedankt voor je tip met het array. Die van jou is een stuk korter. Echter je gebruikt in jouw antwoord 2 vaste afdrukbereiken, maar het is nu juist de bedoeling dat beide bereiken afhankelijk worden van de tabel grootte. En die kan variëren in het aantal regels. Weet je hier ook iets op?
 
Zonder voorbeeldbestand

Code: 
Sub VenA()
  Union(Sheets(1).Range("A1").CurrentRegion, Sheets(1).Range("M1").CurrentRegion).PrintPreview
End Sub

Dit print alle aaneengesloten cellen van A1 en alle aaneengesloten cellen van M1.
 
Dank je wel VenA. Dit werkt prima.
Hiermee kan ik verder aan de slag.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan