Printen: Alleen tabel afdrukken excel 2010

[ErikdV]

Ik heb een werkblad met een tabel en andere gegevens.
Ik wil met VBA de optie instellen om alleen de tabel af te drukken, maar kan deze niet maken met 'Macro opnemen' (lege macro)
Ik kan ook niet vinden welke dialoogbox het is (xlDialog???)
Ik wil het volgende doen:
1. Klik op 'Bestand' in lint
2. Klik op 'Afdrukken'
3. Bij 'Instellingen' kiezen voor 'Geselecteerde tabel afdrukken' (bovenste optie)
4. Afdrukvoorbeeld tonen.

Ik wil dan alleen de tabel zien in het voorbeeld en niet de andere gegevens.
De andere instellingen doe ik via PageSetup

Kan iemand mij de juiste VBA_code geven?

 

[snb]

sheet1.pagesetup.printarea=sheet1.listobjects(1).range.address

 

[ErikdV]

Zo simpel dus. Die heb ik over het hoofd gezien.
Ik moet nu alleen nog wel het print-venster openen (bestand/afdrukken) om het afdrukvoorbeeld te tonen.
Hiervoor zou je volgens mij iets met ExecuteExcel4Macro Print() moeten doen of is er een andere oplossing?

 

[VenA]

Probeer deze eens.

Sub VenA()
With Sheets(1)
    .PageSetup.PrintArea = .ListObjects(1).Range.Address
    .PrintPreview
End With
End Sub