Cookies op Tweakers

Tweakers is onderdeel van DPG Media en maakt gebruik van cookies, JavaScript en vergelijkbare technologie om je onder andere een optimale gebruikerservaring te bieden. Ook kan Tweakers hierdoor het gedrag van bezoekers vastleggen en analyseren. Door gebruik te maken van deze website, of door op 'Cookies accepteren' te klikken, geef je toestemming voor het gebruik van cookies. Wil je meer informatie over cookies en hoe ze worden gebruikt? Bekijk dan ons cookiebeleid.

Meer informatie
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: 21:37

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!


Apple iPad Pro (2021) 11" Wi-Fi, 8GB ram Microsoft Xbox Series X LG CX Google Pixel 5a 5G Sony XH90 / XH92 Samsung Galaxy S21 5G Sony PlayStation 5 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 - 2021 Hosting door True