printen vanuit userform

[jan excel]

Hallo,

In werkblad data staat een draaitabel1 en deze wil ik via een commandobutton printen.
Dacht onderstaande code te gebruiken maar dit werkt niet.
De button staat in een userform2.

Krijg fout melding"deze eigenschap of methode wordt niet ondersteund door dit object.

Wat doe ik fout ?



Private Sub CommandButton2_Click()
Sheets("data").Select
ActiveSheet.PivotTables("Draaitabel1").Selected.PrintOut Copies:=1, Collate:=True

End Sub

 

[HSV]

Dag Jan,

Private Sub CommandButton2_Click()
With Sheets("data")
   .PageSetup.PrintArea = .PivotTables("Draaitabel1").TableRange2.Address
    Unload Me
   .PrintOut Copies:=1, Collate:=True
   .PageSetup.PrintArea = ""
 End With
end sub

 

[jan excel]

Beste Harry,

Wederom bedankt, werkt perfect.
Nog wel een vraag, als de draaitabel groter wordt dan er op een pagina past print het dan automatisch meerdere bladen ?

Groet,
Jan E

 

[HSV]

Ik vermoed het wel Jan.
Het is net als een gewoon bereik.