Ik heb al heel veel gezocht hier op Helpmij naar de juiste tip om middels een macro mijn excel bestanden automatisch als pdf bestand op te slaan in Excel 2003.
Om de 4 weken moet ik nu namelijk van zo'n 40 excel bestanden heel veel verschillende pdf bestanden maken.
Daarom hoop ik dat mijn onderstaande macro zo verbeterd kan worden dat het allemaal wat sneller gaat.
Handmatig doe ik nu het volgende:
Stap 1. Bestand afdrukken printer veranderen in pdf printer
Stap 2. Heel werkmap of één blad printen
Stap 3. Naam PDF bestand intikken
Dit heel veel keer in de herhaling.
Deze macro werkt perfect. Ik heb echter nog drie problemen.
1. "Adobe PDF op NE03:" is op een andere machines soms "Adobe PDF op NE02:"
2. Kan ik een bestand maken met alleen buttons die onzichtbaar het betreffende bestanden openen en alleen de printmacro uitvoert?
3. Kan er ook automatisch een naam opgegeven worden? bijvoorbeeld C:\omzet per district 2009-09.pdf Kan 2009-09 variabel gemaakt worden? Als dit niet kan is het geen probleem want dan doe ik dit handmatig via de verkenner.
Om de 4 weken moet ik nu namelijk van zo'n 40 excel bestanden heel veel verschillende pdf bestanden maken.
Daarom hoop ik dat mijn onderstaande macro zo verbeterd kan worden dat het allemaal wat sneller gaat.
Handmatig doe ik nu het volgende:
Stap 1. Bestand afdrukken printer veranderen in pdf printer
Stap 2. Heel werkmap of één blad printen
Stap 3. Naam PDF bestand intikken
Dit heel veel keer in de herhaling.
Code:
ActiveSheet.Previous.Select
ActiveSheet.Previous.Select
ActiveSheet.Previous.Select
ActiveSheet.Previous.Select
Application.Goto Reference:="R23C1"
ActiveCell.FormulaR1C1 = "B.U. VLA-O, BRUSSEL, WALLONIË"
ActiveSheet.Next.Select
Range("A514:J946").Select
ActiveSheet.PageSetup.PrintArea = "BUVLAO"
Range("A513").Select
ActiveSheet.Previous.Select
Sheets(Array("Voorblad dpo SP", "Alle b.u.'s")).Select
Sheets("Voorblad dpo sp").Activate
Application.ActivePrinter = "Adobe PDF op Ne03:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"Adobe PDF op Ne03:", Collate:=True
ActiveSheet.Next.Select
ActiveSheet.Next.Select
ActiveSheet.Next.Select
ActiveSheet.Next.Select
Range("d5").SelectDeze macro werkt perfect. Ik heb echter nog drie problemen.
1. "Adobe PDF op NE03:" is op een andere machines soms "Adobe PDF op NE02:"
2. Kan ik een bestand maken met alleen buttons die onzichtbaar het betreffende bestanden openen en alleen de printmacro uitvoert?
3. Kan er ook automatisch een naam opgegeven worden? bijvoorbeeld C:\omzet per district 2009-09.pdf Kan 2009-09 variabel gemaakt worden? Als dit niet kan is het geen probleem want dan doe ik dit handmatig via de verkenner.
