[VBA][Excel] Printout landscape

[Verwijderd]

Ik probeer via een macro'tje mn excelsheets uit te printen. Ze moeten landscape uit de printer komen, maar op een of andere manier krijg ik dat niet voor elkaar.

Via MSDN kwam ik er achter dat Mappoint het heel makkelijk kan:

code:

object.PrintOut([OutputFileName], [Title], [Copies], [PrintArea], 
[PrintQuality], [PrintOrientation], [Collate], [IncludeLegend], 
[IncludeOverview], [Faxable])

In excel heb je alleen deze:

code:

expression.PrintOut(From, To, Copies, Preview, ActivePrinter, 
PrintToFile, Collate)

PrintOrientation mist!
Ik heb geprobeerd een macro op te nemen, en dan de code door te spitten, maar tot op heden zonder succes. Iemand enig idee?

[CoRrRan]

Ik denk dat je i.p.v. met de printout-methode met de pagesetup-methode moet werken voordat je het print commando kan geven.

Dus neem eens een macro op, waarin je via de page-setup de orientatie veranderd. Die code kun je daarna gebruiken om in je macro te plempen en DAARNA de expression.PrintOut gebruiken.

Eventueel kun je hierna de orientatie weer terug zetten.

[edit]

Visual Basic:

With ActiveSheet.PageSetup
    .Orientation = xlPortrait
End With

[edit]

[ Voor 12% gewijzigd door CoRrRan op 26-03-2003 16:49 . Reden: Code toegevoegd ]