Variabel afdrukbereik bepalen

[HWV]

Beste,

Ik wil graag een variabel afdrukbereik maken.
Voor de rijen is het mij gelukt, enkel ik zou de kolommen ook variabel willen hebben.
Enkel ik loop nu vast.

Nu is de H een vast gegeven maar die kan variëren van E t/m H

Sub PrintBereik()
On Error Resume Next
Dim r As Range

    Set r = Range("A1:H" & Cells(Rows.count, 1).End(xlUp).Offset(0).Row)

ActiveSheet.PageSetup.PrintArea = r.Address

With ActiveSheet.PageSetup
.PrintArea = r.Address
End With
End Sub

Iemand een idee hoe ik dit kan bepalen

Groet HWV

 

[Cobbe]

Zou deze u verder helpen?

Sub PrintBereik()
On Error Resume Next
     r = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
     c = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Column
 ActiveSheet.PageSetup.PrintArea = Range(Cells(1, 1), Cells(r, c))
End Sub

 

[HWV]

Geprobeerd, maar gebeurd niks

Beste Cobbe,

Bedankt voor je input.
Excuus voor de late reactie.

Helaas gebeurd er niks met het document, er wordt geen afdrukbereik gemaakt

Ik heb al geprobeerd het volgende toe te passen :

Sub PrintBereik()

Dim r As Range
Dim c As Range

On Error Resume Next
   Set r = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
    Set c = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Column
 ActiveSheet.PageSetup.PrintArea = Range(Cells(1, 1), Cells(r, c))
 
End Sub

Maar helaas, misschien heeft er toch iemand de oplossing voor mij.

Groet HWV

 

[cow18]

ActiveSheet.PageSetup.PrintArea = Range(Cells(1, 1), Cells(r, c[COLOR="#FF0000"])).address[/COLOR]

 

[HWV]

Beste,

Helaas wil het niet lukken.
In de bijlage een voorbeeld van een bestand waar het van toepassing is.
Zo zie je dat hij nu meerdere bladzijde`s pakt ipv 2 bladzijde`s.
Om dat dit wordt opgebouwd via vba is het variabel hoeveel bladzijde`s er geprint moet worden.

Bekijk bijlage test.xlsx

(ik werk met excel 2010)

 

[Cobbe]

Met zo'n voorbeeld geraken we ook niet ver.
Geen code en totaal geen uitleg van wat er moet gebeuren.