TimvMechelen
Board Regular
- Joined
- Nov 7, 2016
- Messages
- 121
English:
Hi,
I'd like to have a macro which can save a particular sheet named "Afdrukpagina Draaien" as PDF file. Here I want to save only what's in the printrange.
Also, I'd like to have the path (location) where the file must be saved in a particular cell. This path (in this case: "H:\Mijn documenten\EXCEL MODEL\Testcalculaties\Opgeslagen als PDF") can be found on sheet "Beginblad" in cell "P3". So, the macro must be reffering to this cell, so i can always change the save location.
I also would like to change the Filename. That name is in sheet "Beginblad" in cell "P4".
The macro/VBA i have now is:
Maybe someone can edit this macro so i can refer to the cells P3 and P4 for the name and location of the PDF file.
I hope somebody can help me.
Nederlands:
Hallo allemaal,
Ik zou een macro willen waarmee ik een bepaalde sheet genaamd "Afdrukpagina Draaien" op wil slaan als PDF. Hierbij wil ik alleen hetgeen in het afdrukbereik opslaan.
Ook wil ik het pad(de locatie) waar het bestand opgeslagen moet worden in kunnen voeren. Dit pad (bijvoorbeeld in dit geval: H:\Mijn documenten\EXCEL MODEL\Testcalculaties\Opgeslagen als PDF) is te vinden op sheet "Beginblad" in cel "P3". Dus in de macro moet hierna verwezen worden, zodat het pad altijd gewijzigd kan worden.
Verder staat in een bepaalde cel ook de naam die het PDF bestand zou moeten krijgen. Deze cel staat op de sheet "Beginblad" in cel "P4"
Ik hoop dat iemand mij hiermee verder zou kunnen helpen.
De macro die ik nu heb is:
Hierin zou ik graag de locatie willen wijzigen waar het bestand opgeslagen wordt, en de naam.
De locatie moet uit de cel "P3" op sheet "Beginblad" gehaald worden.
De naam van het bestand moet uit cel "P4" op sheet "Beginblad" gehaald worden.
Misschien iemand die voor mij deze macro aan zou kunnen passen?
Hi,
I'd like to have a macro which can save a particular sheet named "Afdrukpagina Draaien" as PDF file. Here I want to save only what's in the printrange.
Also, I'd like to have the path (location) where the file must be saved in a particular cell. This path (in this case: "H:\Mijn documenten\EXCEL MODEL\Testcalculaties\Opgeslagen als PDF") can be found on sheet "Beginblad" in cell "P3". So, the macro must be reffering to this cell, so i can always change the save location.
I also would like to change the Filename. That name is in sheet "Beginblad" in cell "P4".
The macro/VBA i have now is:
Code:
Sub OpslaanAls_AfdrukpaginaDraaien()
'
' OpslaanAls_AfdrukpaginaDraaien Macro
''
Sheets("Afdrukpagina Draaien").Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"H:\Mijn documenten\EXCEL MODEL\Testcalculaties\Opgeslagen als PDF\Opzet parameters Excel Model_18.pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True
End Sub
Maybe someone can edit this macro so i can refer to the cells P3 and P4 for the name and location of the PDF file.
I hope somebody can help me.
Nederlands:
Hallo allemaal,
Ik zou een macro willen waarmee ik een bepaalde sheet genaamd "Afdrukpagina Draaien" op wil slaan als PDF. Hierbij wil ik alleen hetgeen in het afdrukbereik opslaan.
Ook wil ik het pad(de locatie) waar het bestand opgeslagen moet worden in kunnen voeren. Dit pad (bijvoorbeeld in dit geval: H:\Mijn documenten\EXCEL MODEL\Testcalculaties\Opgeslagen als PDF) is te vinden op sheet "Beginblad" in cel "P3". Dus in de macro moet hierna verwezen worden, zodat het pad altijd gewijzigd kan worden.
Verder staat in een bepaalde cel ook de naam die het PDF bestand zou moeten krijgen. Deze cel staat op de sheet "Beginblad" in cel "P4"
Ik hoop dat iemand mij hiermee verder zou kunnen helpen.
De macro die ik nu heb is:
Code:
Sub OpslaanAls_AfdrukpaginaDraaien()
'
' OpslaanAls_AfdrukpaginaDraaien Macro
'
'
Sheets("Afdrukpagina Draaien").Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"H:\Mijn documenten\EXCEL MODEL\Testcalculaties\Opgeslagen als PDF\Opzet parameters Excel Model_18.pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True
End Sub
Hierin zou ik graag de locatie willen wijzigen waar het bestand opgeslagen wordt, en de naam.
De locatie moet uit de cel "P3" op sheet "Beginblad" gehaald worden.
De naam van het bestand moet uit cel "P4" op sheet "Beginblad" gehaald worden.
Misschien iemand die voor mij deze macro aan zou kunnen passen?