Hallo Mechanik,
Welkom op Oplossing.be
Welke versie van Excel gebruik je, want je geeft een .xls voorbeeldbestandje mee, wat van een oude versie zou zijn.
anders zet je jou bestand beter om naar een .xlsx (vanaf Office 2007, denk ik)
Om jou te helpen zal je een Macro moeten gebruiken.
Je zal dus je bestand moeten opslaan als .xlsm (als je geen zeer oude versie gebruikt)
Maak ook een map "Taxi" aan in C:\
Daarna zal je de VBA-editor moeten openen, een Module toevoegen, en de onderstaande code kopiëren en in de module plakken.
Sub MailTaxi()
FacName = ActiveSheet.Range("G1")
Datum = ActiveSheet.Range("F7")
Bestuurder = ActiveSheet.Range("E13")
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Taxi\" & FacName & "_" & Datum & "_" & Bestuurder & ".pdf", IgnorePrintAreas:=False, OpenAfterPublish:=False
Application.ActivePrinter = "Brother MFC-5890CN Printer (LAN) op Ne09:" 'pas de gegevens aan voor jou printer
ExecuteExcel4Macro "PRINT(2,1,1,1,,,,,,,,2,,,TRUE,,FALSE)"
End Sub
Je zal in je werkblad ook de eigenschappen van cel "F7" moeten aanpassen naar "Aangepast" ..... ##.##.####
Daarna je datum opnieuw ingeven: 03 09 2018
Later kan je deze macro aan een (in je werkblad te plaatsen) knop kunnen koppelen.
Ik ken je "skills" niet, dus laat maar horen wat je zou kunnen verwezenlijken
SoftAid