Copyright 1998 - 2026 DPG Media B.V. Tue, 14 Jul 2026 16:16:16 GMT Tue, 14 Jul 2026 16:16:16 GMT GoT - list_messages https://gathering.tweakers.net/ Gathering of Tweakers https://tweakers.net/g/if/logo.gif nl-nl https://gathering.tweakers.net/rss/list_messages/1998208 Excel VBA Pagina-instelling + bureaublad - Client software algemeen - GoT gathering@tweakers.net (Administrator) Verwijderd https://gathering.tweakers.net/forum/list_message/62686626#62686626 Bedankt allemaal!! Het is gelukt!
Het is gelukt!]]> Verwijderd https://gathering.tweakers.net/forum/list_message/62686626#62686626 Tue, 09 Jun 2020 09:19:59 GMT F_J_K https://gathering.tweakers.net/forum/list_message/62632002#62632002 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.
.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. :)
]]> F_J_K https://gathering.tweakers.net/forum/list_message/62632002#62632002 Thu, 04 Jun 2020 09:33:29 GMT SinergyX https://gathering.tweakers.net/forum/list_message/62631886#62631886 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. SinergyX https://gathering.tweakers.net/forum/list_message/62631886#62631886 Thu, 04 Jun 2020 09:24:53 GMT Verwijderd https://gathering.tweakers.net/forum/list_message/62631812#62631812 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
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]]> Verwijderd https://gathering.tweakers.net/forum/list_message/62631812#62631812 Thu, 04 Jun 2020 09:19:16 GMT