VBA: Set Print Range

[Arjee]

Hallo,

Ik heb een probleempje met VBA,

In een bestand waarin een aantal kolommen gevuld kunnen worden heb ik een macro om aan de hand van de gevulde tabel het printbereik te definieren.
Ik heb dat geprobeer met:
Worksheets("Sheet1").PageSetup.PrintArea = Array(Beginp, Eindp)

Hierbij zijn beginp en eindp variabelen die allebei een cel bevatten. hierdoor moet de juiste range geselecteerd worden.

Helaas werkt dit niet. Ziet iemand wat ik fout doe? Alvast bedankt,
Arjee

 

[Wigi]

Wat zit er precies in Beginp en Eindp?

 

[Arjee]

Set Beginp = Cells(36, 11)
Set Eindp = Cells(126, 31)

 

[Wigi]

Worksheets("Sheet1").PageSetup.PrintArea = Range(Beginp, Eindp).Address

 

[Arjee]

WIGI,

Bedankt voor je snelle reactie. Helaas werkt het niet,

Ik krijg de melding: run-time error 438:

Object doesn't support this object or method

 

[Wigi]

Bij mij werkt dat wel, en ook in de helpfiles staat een volledig analoog voorbeeld met code.

 

[Arjee]

Hmmm.. Vreemd. Dan zoek ik nog even verder.

Bedankt voor de moeite!