• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Bladen printen

Status
Niet open voor verdere reacties.
corania17

corania17

Gebruiker
Lid geworden
1 okt 2012
Berichten
260
Beste leden,

Is het mogelijk om bladen te printen via VBA?
Ik heb op blad (Scanblad) in Cel F15 een combobox waarin ik kan kiezen op "Busticket", "Kerstlunch", "Koningsdag" en "Fietstocht".
Daarnaast zijn er 4 bladen met dezelfde naam.
Er ook een commandbutton op het Scanblad om te kunnen printen.
De code daarachter is:

Code: 
Sub Ticket()
Sheets("Busticket").PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
Sheets("Kerstlunch").PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
Sheets("Fietstocht").PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
Sheets("Koningsdag").PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
End Sub

Is het nu mogelijk om daar een regel van te maken waarin de mogelijkheden van de bladen in worden genoemd.
Cel F15 veranderd op het Scanblad veranderd dus voor de activiteit.
Nu worden alle bladen (Formulieren) geprint.

Met vriendelijke groet, Rubik.
 
Laatst bewerkt door een moderator:
Dat lijkt mij logisch; als je een procedure maakt die alle werkbladen afdrukt, moet je niet gek opkijken als de printer dat ook doet. Ik zou verbaasder zijn als de printer één willekeurig werkblad uitkiest :). Maar je kunt toch een code hangen aan de combobox die het gekozen werkblad afdrukt? Iets als:
Code: 
[COLOR=#333333]Sheets(cboKeuzelijst).PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False[/COLOR]


(en graag de volgende keer CODE TAGS gebruiken:))
 
Beste OctaFish,

Dank u voor uw bericht.
Ik was daar niet verbaasd over omdat er alle bladen worden genoemd, die dus ook worden geprint.
Wat ik nu dus zoek is één regel die het formulier print welke ik in blad "Scanblad" d.m.v. de uitkomst van cel F15 heb gekozen.
Dus bijvoorbeeld Sheets(Scanblad!F15).PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
Hierop krijg ik dan de melding Object vereist,
Of bijvoorbeeld Sheets("Scanblad!F15").PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
Met de melding Het subscript valt buiten het bereik.
Maar hoe kan het wel, als het kan?

Met vriendelijke groet, Rubik.
 
zo denk ik

Code: 
Sub Ticket()
Sheets(Sheets("Scanblad").Range("F15")).PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
End Sub
 
Beste lam201,

Ik heb uw code gebruikt maar geeft de foutmelding "Typen komen niet met elkaar overeen".
In dit forum heb ik al verschillende mogelijkheden gezien maar geen een die aan mijn wensen voldoet.
Zou het dan toch niet lukken?

Met vriendelijke groet, Rubik.
 
Er moet nog iets bij:
Code: 
Sub Ticket()
    Sheets(Sheets("Scanblad").Range("F15")[COLOR="#FF0000"].Value[/COLOR]).PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
End Sub
 
Laatst bewerkt:
Goedemorgen Edmoor,

Heel hartelijk dank voor uw meedenken en geweldig dat het werkt, scheelt weer 3 knoppen op mijn dashboard.

Met vriendelijke groet, Rubik.
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan