Printen via keuze menu

Status
Niet open voor verdere reacties.
M

Marthy Mc Fly

Gebruiker
Lid geworden
14 okt 2010
Berichten
117
Ik heb in excel een kalender gemaakt die verschillende shiften bevat.
Graag had ik via een keuze menu de shift en de desbetreffende maand
afgeprint. Shift (de eerste drie kolommen die geblokkeerd zijn) en maand
zouden samen in landscape op één A4 afgeprint moeten worden.
Weet alleen niet hoe ik hier aan moet beginnen.

Bekijk bijlage Kalender 2018(test).xlsx
 
Kan je hiermee verder?
 

Bijlagen

  • Kalender 2018.xlsb
    162,9 KB · Weergaven: 52
Hallo Dotchie Jack's, dit is inderdaad wat ik zoek en mijn grote dank ook hiervoor.
Maar ik ben toch nieuwsgierig hoe dit in elkaar zit. Ik weet nl. graag hoe de vork aan
de steel zit.
 
Heb deze morgen op het werk verscheidene malen afgeprint zonder probleem. Enkel blad moeten passend maken
voor één pagina. Laatste drie kolommen van de maand werden niet afgeprint.
Blijkbaar konden andere collega's niets wijzigen of toevoegen in de kalender.
Blijkbaar heb ik en dat heb ik ondertussen zelf al ontdekt bij de opties vertrouwenscentrum iets verkeerd gedaan.
Maar wil je hiermee stellen dat ik mijn werkblad niet met psw kan beveiligen, zodat een select groepje toegang heeft.
 
Laatst bewerkt:
Blijkt toch niets te maken te hebben met dat vertrouwenscentrum. Want nadat ik een paar wijzigingen heb aangebracht
, waaronder een verandering van naam in de validatielijst, geeft hij opnieuw dezelfde fout als ik wil afprinten.
 
Kan je wat meer uitleg bezorgen?
Als je die foutmelding krijgt,druk op de knop foutoplossing.
Dan krijg je de code, het gele stuk is waar de fout zich voordoet, post het stukje hier.
 
Volgens mij kan de code wel wat eenvoudiger. Heb je nu wel of geen beveiliging op het blad staan? Voor Excel maakt het niet of je wel of geen ww voor het beveiligen gebruikt. Zonder beveiliging en met een paar regels minder code en het geheel op 1 pagina.
 

Bijlagen

  • Kalender_2018.xlsb
    158,3 KB · Weergaven: 57
@ Vena, mooi :thumb:
Ik zal morgen eens kijken of ik wat extra kennis kan snoepen.:)
 
Hello Vena,,

In de open printmenu heb je de maanden in het engels gezet terwijl ze op de kalender in het nederlands staan.
Mogelijk is dit de reden waarom ik volgende fouten krijg.
Ashampoo_Snap_2017.12.02_14h26m53s_001_.png
Ashampoo_Snap_2017.12.02_14h27m35s_002_.png
 
De maanden heb ik niet in het Engels gezet maar dat doet jouw systeem.

Zo krijg je de Nederlandse namen.
Code: 
Private Sub UserForm_Initialize()
  C_00.List = Split("DAG 2PM 2PN VANA WE")
  C_01.List = Split("januari februari maart april mei juni juli augustus september oktober november december")
End Sub
 
@ vena
Met deze verandering print hij het gevraagde perfect af.
Waarom denk je dat mijn systeem dat veranderd heeft?
Ik weet nl. graag veel. Denk ook dat onze vriend Dotchie Jack's iets bijgeleerd heeft,
want code is inderdaad eenvoudiger.
Nog één laatste vraag. Kan ik dit document nu zonder problemen te krijgen met de code beveiligen met ww?
 
Jouw systeeminstellingen zijn Engelstalig en dan krijg je met Application.GetCustomListContents(4) de Engelse maandnamen.

Om de code te laten werken op een beveiligd blad moet je eerst de de beveiliging eraf halen en er vervolgens weer opzetten. (kan het ook nog anders.)
Code: 
With Sheets("Kalender")
  .Unprotect "ww"
  rest van de code
  .Protect "ww"
End With
 
Nederlandse maanden kan ook zo.
Code: 
c_01.List = [index(text(30*row(1:12),"[$-413]mmmm"),)]
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan