[VBA - Excel] Formulieren afdrukken

[Verwijderd]

Hoi mensen,

Ik heb een probleem met het afdrukken van formulieren in excel. In de macro kun je namelijk niet, zoals bij een normale sheet, kiezen voor .pagesetup
Ik heb in de help gezocht op printen, formulier, landscape, enz. maar ik kan nergens iets vinden over hoe ik de pagina instellingen kan wijzigen voor een formulier. Tevens een macro opgenomen en dan in het formulierscherm op CTRL-P gedrukt, maar helaas... een lege macro.

Weet iemand of dit uberhaupt wel kan?

Alvast bedankt!

[CoRrRan]

Het kan wel, zie link:

Google Groups, "print+form+vba", 2e hit

[BtM909]

CoRrRan schreef op maandag 18 juli 2005 @ 12:42:
Het kan wel, zie link:

Google Groups, "print+form+vba", 2e hit

Dit gaat over het formulier zelf printen

TS, wat wil je eigenlijk: wil je het printscherm voor je krijgen (FILE | Print...) of het Page Setup scherm (FILE | Page Setup...)

[CoRrRan]

BtM909 schreef op maandag 18 juli 2005 @ 13:43:
[...]

Dit gaat over het formulier zelf printen

[...knip...]

Zoals ik zijn vraag lees en als ik bedenk wat hij probeert te doen, dan lees ik eruit dat hij het 'formulier', i.e. VBA UserForm, wil printen. Maar ik geef je gelijk, iets meer duidelijkheid is wel gewenst.

[Verwijderd]

Sorry voor de late reactie EN de onduidelijkheid...
Ik werk namelijk maar 4 uur per dag en zie de meldingen (bedankt )nu pas

Mijn code ziet er als volgt uit om de UserForm te printen:

FormulierCOPC.PrintForm

Maar wat ik wil doen is in deze code kunnen bepalen hoe de instellingen moeten zijn. Bv. Het blad op Landscape zetten. En dat kan namelijk wel met normale sheets:
[table border=1 width=350 cellpadding=2 bordercolor=#000000]

Visual Basic:

With ActiveSheet.PageSetup 
    .CenterHorizontally = True 
    .CenterVertically = False 
    .Orientation = xlLandscape 
End With

Deze code kan helaas niet met formulieren...
Ik hoop dat ik duidelijk genoeg ben zo...

Edit:
[code=vb] getest & toegevoegt. cool !!!

[ Voor 6% gewijzigd door Verwijderd op 19-07-2005 11:56 ]

[BtM909]

Overigens kan je je programmeer-code tussen [plain]

code:

[/] code zetten. Zie ook: Overzicht van UBB-codes

Visual Basic:

' Ik gebruik nu vb als lang. aangezien deze kleurtjes heeft \o/

With ActiveSheet.PageSetup 
  .CenterHorizontally = True
  .CenterVertically = False
  .Orientation = xlLandscape
End With

Het klopt dat je voor je formulier(object) geen PageSetup kan uitvoeren. Wat gebeurt er als je het voor je sheet wel aanpast. Gaan je printer-instellingen dan niet mee?

[ Voor 25% gewijzigd door BtM909 op 19-07-2005 11:40 ]

[Verwijderd]

Jawel, de printer instellingen blijven zoals het in de code staat, maar...ik heb inmiddels 6 formulieren en 2 daarvan moeten op landscape en de andere 4 niet

p.s. bedankt voor de tip

[Lustucru]

Afaik stuurt form.printform gewoon een bitmap naar de activeprinter. Het pagesetupobject van een sheet heeft daar verder geen invloed op. Je kunt wel voorafgaand aan het afdrukken met de printerpropertiesapi het dialoogscherm van je driver laten verschijnen of je installeert de printer twee keer; een keer portret, een keer landscape en kiest voor het afdrukken de juiste printer.

[Verwijderd]

Hmm, moet maar. Ken verder geen andere manier

Tnx voor de hulp mensen!