Toon posts:

Excel VBA Pagina-instelling + bureaublad

Pagina: 1
Acties:

Onderwerpen

Vraag


  • GCA123
  • Registratie: Juni 2020
  • Laatst online: 09-06-2020
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]

Alle reacties


  • SinergyX
  • Registratie: November 2001
  • Laatst online: 01:03

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.


  • F_J_K
  • Registratie: Juni 2001
  • Niet online

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. :)

[Voor 32% gewijzigd door F_J_K op 04-06-2020 11:35]

'Multiple exclamation marks,' he went on, shaking his head, 'are a sure sign of a diseased mind' (Terry Pratchett, Eric)


Acties:
  • +1Henk 'm!

  • GCA123
  • Registratie: Juni 2020
  • Laatst online: 09-06-2020
Bedankt allemaal!!

Het is gelukt!



Google Pixel 7 Sony WH-1000XM5 Apple iPhone 14 Samsung Galaxy Watch5, 44mm Sonic Frontiers Samsung Galaxy Z Fold4 Insta360 X3 Nintendo Switch Lite

Tweakers vormt samen met Hardware Info, AutoTrack, Gaspedaal.nl, Nationale Vacaturebank, Intermediair en Independer DPG Online Services B.V.
Alle rechten voorbehouden © 1998 - 2022 Hosting door True

Tweakers maakt gebruik van cookies

Tweakers plaatst functionele en analytische cookies voor het functioneren van de website en het verbeteren van de website-ervaring. Deze cookies zijn noodzakelijk. Om op Tweakers relevantere advertenties te tonen en om ingesloten content van derden te tonen (bijvoorbeeld video's), vragen we je toestemming. Via ingesloten content kunnen derde partijen diensten leveren en verbeteren, bezoekersstatistieken bijhouden, gepersonaliseerde content tonen, gerichte advertenties tonen en gebruikersprofielen opbouwen. Hiervoor worden apparaatgegevens, IP-adres, geolocatie en surfgedrag vastgelegd.

Meer informatie vind je in ons cookiebeleid.

Sluiten

Toestemming beheren

Hieronder kun je per doeleinde of partij toestemming geven of intrekken. Meer informatie vind je in ons cookiebeleid.

Functioneel en analytisch

Deze cookies zijn noodzakelijk voor het functioneren van de website en het verbeteren van de website-ervaring. Klik op het informatie-icoon voor meer informatie. Meer details

janee

    Relevantere advertenties

    Dit beperkt het aantal keer dat dezelfde advertentie getoond wordt (frequency capping) en maakt het mogelijk om binnen Tweakers contextuele advertenties te tonen op basis van pagina's die je hebt bezocht. Meer details

    Tweakers genereert een willekeurige unieke code als identifier. Deze data wordt niet gedeeld met adverteerders of andere derde partijen en je kunt niet buiten Tweakers gevolgd worden. Indien je bent ingelogd, wordt deze identifier gekoppeld aan je account. Indien je niet bent ingelogd, wordt deze identifier gekoppeld aan je sessie die maximaal 4 maanden actief blijft. Je kunt deze toestemming te allen tijde intrekken.

    Ingesloten content van derden

    Deze cookies kunnen door derde partijen geplaatst worden via ingesloten content. Klik op het informatie-icoon voor meer informatie over de verwerkingsdoeleinden. Meer details

    janee