Auteur Topic: Macro voor werkblad op te slaan als PDF (gelezen 28519 keer)

Jamnesia · « **Gepost op:** 14 januari 2013, 08:13:49 »

Dag allemaal,

Ik ben zelf niet zo goed op de hoogte van marco's. Zelf heb ik heel veel macro's kunnen maken door de bewerkingen op te nemen en hier daar wat zoekwerk te verrichten op het net. Tot hiertoe ben ik er steeds uitgekomen.

Maar ik zit met het volgende probleem. Even een korte schets van wat mijn exel file moet kunnen met de macro's.
Als het kan helpen, ik werk met Excel 2010.

Ik heb een werkblad waar ik de montage's voorzie van mijn onderaannemers. Hier heb ik al een macro gemaakt van de verschillende aannemers, die automatisch de gegevens in gaat vullen van hen als ik er op druk.
Dan heb ik ook nog een knop met macro gemaakt om alles te recetten en één knop om het werkblad af te printen.

Nu zou ik graag nog een macro willen hebben die dit werkblad gaat opslaan als een pfd file. Probleem echter is volgens mij dat dit steeds in een andere documentnaam moet opgeslagen worden en dan nog eens in een andere map op de server.
Is er iemand die mij hier bij kan helpen? Ik weet niet of dit mogelijk is natuurlijk. Let wel op, ik zou vrij de keuze moeten blijven kunnen maken tussen afprinten en opslaan als pdf.
Is er dus een mogelijkheid dat wanneer ik op de knop van pdf druk, deze automatisch naar mijn pdf-creator gaat en dat ik daar zelf de bestandsnaam kan kiezen en kiezen waar ik deze op ga slaan?

Alvast bedankt.

SoftAid · « **Reactie #1 Gepost op:** 14 januari 2013, 11:25:59 »

Hallo Jamnesia,

Welkom op Oplossing.be.

Je bent aan het goede adres, want gelukkig heb ik een gelijkaardig bestand waarin ik al mijn facturen en klantgegevens bewaar, en van waaruit ik mijn aangemaakte verkoop-facturen opsla naar een lijst in tabblad "Verkoop", de factuur afdruk voor "mijn" boekhouding, en de factuur opsla als PDF om via mail mee te sturen naar mijn klanten.

De Code die ik hiervoor gebruik, en die gewoon aan een knop gekoppeld is op het Tabblad "Factuur" gaat als volgt:

Code: [Selecteer]

Sub Mail()
Dim FacName As String

FacName = ActiveSheet.Range("J12").Value ' De macro haalt met dit command het factuurnummer op in de factuur, om deze later als naam voor het PDF-bestand te gebruiken.
       
If Dir("C:\Gebruikers\jou gebruikersnaaam\Mijn documenten\FactuurMail\" & FacName & ".pdf") <> "" Then
   MsgBox "Het bestand: " & FacName & ".pdf bestaat reeds"   ' Een controle om geen dubbel PDF-bestand te maken.
        ' De map waarin je de PDF-bestanden in wilt creëeren (bij mij FactuurMail) moet op voorhand aangemaakt zijn!!
       Exit Sub  'Verlaat de routine als het PDF-bestand reeds bestaat.
     Else
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:="C:\Gebruikers\jou gebruikersnaaam\Mijn documenten\" & FacName & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, From:=1, To:=1, OpenAfterPublish:=True

End If
End Sub

Uitleg:
ActiveSheet.ExportAsFixedFormat: is de eigenlijke opdracht om het openstaande blad te Exporteren als een ander formaat, wat later bepaald wordt in de lijn =xlTypePDF, en dan een naam krijgt met FileName:="C:\Gebruikers\jou gebruikersnaaam\Mijn documenten\FactuurMail\" & FacName & ".pdf

De andere eigenschappen kan je vrij kiezen, namelijk Kwaliteit, Document-eigenschappen, Printer-eigenschappen, Aantal, Openen in een PDF-Reader na Exporteren.

Citaat

Is er dus een mogelijkheid dat wanneer ik op de knop van pdf druk, deze automatisch naar mijn pdf-creator gaat en dat ik daar zelf de bestandsnaam kan kiezen en kiezen waar ik deze op ga slaan?

je kan in je Macro zelf al bepalen met welke naam en in welke map je het PDF-bestand gaat plaatsen. (Zie bijlage )

Kan je hiermee verder? Anders hoor ik het wel

Groeten,

SoftAid

Jamnesia · « **Reactie #2 Gepost op:** 14 januari 2013, 13:09:15 »

Beste SoftAid,

Hartelijk dank voor de snelle reactie. Ik ga het vandaag eens uitproberen en hou u op de hoogte als het mij geholpen heeft of dat er nog vragen zijn.

Nogmaals bedankt.

Jamnesia · « **Reactie #3 Gepost op:** 14 januari 2013, 15:13:53 »

Beste SoftAid,

Ik heb uw macro even bekeken en uitgetest, maar ik kreeg steeds een foutmelding. Aangezien ik niet zoveel van macro's afweet, heb ik voor de zekerheid even een stuk van mijn programma in de bijlage gezet. Als je het werkblad van 090 zou openen, dan kom je op mijn werkblad uit. Hier staat een knop met PDF in en als ik op die knop zou drukken, dan moet dit blad opgeslagen worden als een pdf. Maar dit is dan steeds als een andere documentsnaam en ook in een andere directory. Is het mss mogelijk dat wanneer ik op deze knop druk ik zelf de naam van het document kan intypen en mijn map op de server kan kiezen.

Misschien kan je aan de hand van dit document mij beter en gerichter helpen en misschien de macro in mijn plaats maken.

Alvast bedankt.

Jamnesia · « **Reactie #4 Gepost op:** 14 januari 2013, 17:12:57 »

Ik had blijkbaar een klein foutje gemaakt in de formule en uw formule werkt dus wel.

Enkel slaat hij automatisch het document op in een vaste map onder een aangeduide naam. Maar is het niet mogelijk dat wanneer ik op de pdf knop druk, ik zelf de bestandsnaam kan invoeren en ook de map waar ik deze kan in opslaan zelf kan kiezen.

Anders moet ik voor elke onderaannemer een apparte pdf knop maken (want deze moet in hun eigen map opgeslagen worden) en hou dit liever beperkt.

Als ik nu met uw macro iets op zou slaan, dan slaat deze enkel bv cel H24 op. In dit geval is dit de naam van de werf. Maar ik zou aan deze naam ook nog graag de gemeente en de datum koppelen. Deze staan in cel J24 en op Z38. Nu krijg ik bijvoorbeeld als bestandsnaam MICHELIN, maar ik zou graag dus als bestandsnaam bv MICHELIN(H24) Antwerpen(J24) 14-01-13(Z38).
Als dit zou zou kunnen opgeslagen worden, dan los ik het wel op met verschillende pdf knoppen en macro's. Maar natuurlijk liever dat ik alles zelf kan ingeven.

Alvast bedankt.

SoftAid · « **Reactie #5 Gepost op:** 14 januari 2013, 17:43:36 »

Hallo Jamnesia,

Citaat

Enkel slaat hij automatisch het document op in een vaste map onder een aangeduide naam. Maar is het niet mogelijk dat wanneer ik op de pdf knop druk, ik zelf de bestandsnaam kan invoeren en ook de map waar ik deze kan in opslaan zelf kan kiezen.

Onder de 2 de knop kan je toch zelf namen en mappen ingeven...?

in bijlage een voorbeeld hoe je zelf namen voor je bestanden, en de map waarin ze moeten komen kan kiezen.
Je kan de hoofdmap-naam ook uit je formulier halen.
Bijvoorbeeld, als in "A1" de naam staat van de klant, dan kan je als bestemming die naam ophalen, aan een variabele toewijzen, en deze in de bestemming gebruiken om de map aan te wijzen.

Bijvoorbeeld je klantnaam staat in A1 en is "Piet" . Je hebt ook een map C:\Piet\
Dan kan je de macro het volgende laten doen:

Code: [Selecteer]

naam = Cells("A1").Value
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:="C:\"& [b]naam[/b] & "\" & FacName & ".pdf",  From:=1, To:=1)

In bijlage een voorbeeld zonder deze aanpassing.

SoftAid

danny147 · « **Reactie #6 Gepost op:** 14 januari 2013, 18:20:02 »

Beste Jamnesia

Waarom een macro maken voor PDF ??

Excel beschikt toch over PDF functie !

Via Officeknop --> Opslaan Als --> PDF of XPS

Groetjes Danny.

Jamnesia · « **Reactie #7 Gepost op:** 14 januari 2013, 20:47:25 »

Beste Danny,

Omdat dit beter uitkomt om een macro te maken. Opslaan als PDF had ik ook al gebruikt, maar is echt lastiger voor mij, omdat ik met verschillende onderaannemers werk en verschillende mappen heb op de server.

Maar toch bedankt voor de tip.

Jamnesia · « **Reactie #8 Gepost op:** 14 januari 2013, 20:50:36 »

Beste SoftAid,

Ik denk dat het hier zeker en vast mee moet lukken. Ga het deze week eens proberen allemaal aan te passen en laat u het wel weten.

Gr

Jamnesia · « **Reactie #9 Gepost op:** 14 januari 2013, 21:24:47 »

Nog één vraagje en waarschijnlijk de makkelijkste. Voor de rest ziet het er echt super uit.

Ik heb nu 2 pagina's in mijn document. Maar ik zou er nu maar 1 van willen opslaan in pdf. De 2de pagina moet ik niet opslaan als pdf. Kan ik ergens in mijn macro een range invoeren dat hij enkel maar pagina 1 zou opslaan?

In ieder geval een dikke merci voor mijn ander probleem op te lossen. SoftAid

SoftAid · « **Reactie #10 Gepost op:** 14 januari 2013, 22:21:27 »

Hallo Jamnesia,

hoeveel en welke bladen afgedrukt worden bepaal je in de macro code:

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
FileName:=.................,.................,From:=1, To:=1 dus van Blad1 tot Blad1 van het werkblad...

Als je dus bijvoorbeeld enkel blad 2 wilt afdrukken dan typ je
From:=2, To:=2
Wil je blad 1 en 2 afdrukken dan typ je
From:=1, To:=2
enzovoort.....

Gebruik wat meer de functie "Macro opnemen" en voer daar de handelingen uit die je wilt leren kennen in VBA.
Open na het stoppen van de Macro de VBA-code en je ziet dan welk effect je handelingen hadden, en hoe de VBA code ervan genoteerd wordt door Excel.

Groeten,

SoftAid

Jamnesia · « **Reactie #11 Gepost op:** 15 januari 2013, 08:20:57 »

Beste SoftAid,

Alvast bedankt voor mijn probleem volledig op te lossen. Idd, ik probeer alles zelf op te lossen met een macro op te nemen, maar soms zit het hem in kleine dingen zoals een " dat fout staat of zoiets. Als je dan zelf niet echt de betekenis kent van bepaalde woorden. Maar we worstellen ons er elke keer wel door en met de hulp van jullie lukt het allemaal wel.

Voor mijn part mag deze topic gesloten worden, want jullie hebben mij echt super geholpen.

Heel hartelijk bedankt.

Gr

SoftAid · « **Reactie #12 Gepost op:** 15 januari 2013, 09:47:36 »

Hallo Jamnesia,

Graag gedaan, en tot het volgend probleem

SoftAid

Help!

Menu

Hulp bij posten

Zoeken

Recente topics