Excel VBA Pagina-instelling + bureaublad

donderdag 4 juni 2020 11:19

Acties:

0Henk 'm!

Goeiemorgen,

ik ben een macro aan het maken waarbij hij van mijn blad automatisch een PDF maakt, met de juiste benaming en op het bureaublad zet.

Nu heb ik twee dingen die niet lukken :
- in de formule lukt het mij om het bestand op mijn bureaublad te zetten, maar dit zou bij een andere gebruiker ook zo moeten zijn.
Hoe kan ik dit doen?
- als ik het bestand open staan de pagina-instellingen juist (2 pagina's) maar als ik op de knop duw en de macro uitvoer dan verzet hij de pagina instellingen en klopt de lay-out van het document niet meer.
Hoe kan ik dit juist doen?

Ik werk met mac

Alvast bedankt!

Hieronder de code :

Sub Mail()
Dim FacNummer As String, Dossiernummer As String, Datum As String, beheerder As String

naam = ("bedrijfsnaam_factuur")
beheerder = ActiveSheet.Range("M18") ' waar de beheerder staat
FacNummer = ActiveSheet.Range("D18") ' waar het factuurnummer staat
Dossiernummer = ActiveSheet.Range("G18") ' waar de klantnaam staat

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
"/Users/naam/bureaublad" & FacNummer & "_" & Dossiernummer & "_" & naam & beheerder & ".pdf" ' -> in deze rij moet er iets aangepast worden zodat het bij iedere gebruiker op zijn bureaublad terecht komt

End Sub

[Voor 1% gewijzigd door F_J_K op 04-06-2020 11:26. Reden: Ik ben zo vrij de code iets te anonimiseren]

donderdag 4 juni 2020 11:24

Acties:

0Henk 'm!

SinergyX

____(>^^(>0o)>____

Geen idee of je printproperties bij een export standaard worden meegenomen, maar die kan je als flag bij je ExportAsFixes expliciet nog meenemen met IgnorePrintAreas, anders deze met False meegeven.

^{Nog 1 keertje.. het is SinergyX, niet SynergyX}
_{Im as excited to be here as a 42 gnome warlock who rolled on a green pair of cloth boots but was given a epic staff of uber awsome noob pwning by accident.}

donderdag 4 juni 2020 11:33

Acties:

0Henk 'm!

F_J_K

Moderator CSA/PB

Front verplichte underscores

Het juiste bureaublad kan je krijgen met Environ$("Userprofile"), dus zegmaar:

.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Environ$("USERPROFILE") & "\desktop\bla.pdf"

Opmaak zou idd wel eens kunnen liggen aan default printerinstellingen, zoals dat die op Letter ipv A4 staat.

offtopic:
Welkom!
Ik ben zo vrij geweest bedrijfsnaam en jouw naam uit de code te halen in je startpost. Misschien wilde je dat prive houden, en het is niet relevant voor de code. Ook heb ik ik Excel in de topictitel gezet zodat er meteen duidelijk is waar het over gaat.