Print area (naamconflict)

[Robbemans1979]

Beste mensen,

Als ik een print area instel op een tabblad, daarna exporteer naar PDF.
Dan krijg ik het popup schermpje te zien met naamconflict (zie bijlage foto).
Als ik op OK druk of iets anders doe, dan sluit excel af. PDF wordt wel gemaakt.

Hoe los ik dit op? PDF exporten met afdrukbereik, zonder dat excel afsluit, zonder popup scherm.

Wie oh wie kan mij helpen?

Gr. Rob

 

[HSV]

Omdat het niet veel werk was het na te bootsen, maar graag zelf een bestand plaatsen als het niet voldoet.

voorbeeld 1.

Sub hsv()
With ActiveSheet
 .Range("a11:h17").Name = "print_area"
 .PageSetup.printarea = .Range("print_area").Address
 .Range("print_area").ExportAsFixedFormat 0, "c:\users\hsv\desktop\hsv", , , , , , True
End With
End Sub

voorbeeld 2.

Sub twee()
With ActiveSheet
Dim c As Range, print_area As Range
 .Range("a11:h17").Name = "print_area"
 Set print_area = Range("print_area")
 .PageSetup.printarea = print_area.Address
 print_area.ExportAsFixedFormat 0, "c:\users\hsv\desktop\hsv", , , , , , True
End With
End Sub

 

[Robbemans1979]

Beste Harry,

Super bedankt voor je reactie.


Ik heb dit ervan gemaakt. Maar is het ook mogelijk om de bestandsnaam van de pdf verwijzen naar cel E2?
Anders moet ik per pdf hernoemen. Zijn 250 bestanden die ik moet exporteren.

Sub PDF()
With ActiveSheet
Dim c As Range, print_area As Range
 .Range("E1:L69").Name = "print_area"
 Set print_area = Range("print_area")
 .PageSetup.PrintArea = print_area.Address
 print_area.ExportAsFixedFormat 0, "T:\90. GPS metingen\Oude Rijn\oplevering\", , , , , , True
End With
End Sub

PS. het bestand is te groot en teveel verwijzingen om het hier te posten.


mvg
Rob

 

[HSV]

 print_area.ExportAsFixedFormat 0, "T:\90. GPS metingen\Oude Rijn\oplevering\" &[COLOR=#ff0000] .range("e2").value[/COLOR], , , , , , True

 

[Robbemans1979]

Beste HSV!!!!

Oh joh!!!! Gekkenhuis!!!!

Super bedankt!
Het werkt!!!!!


Groetjes
Rob

Als je iets goeds ziet geef dan een compliment! (bij deze dus) :thumb:
Als je iets fouts ziet bied dan je hulp aan!

 

[HSV]

Mooi om te vernemen Rob.
Als je niet wil dat de Pdf's worden geopend dan moet je de laatste komma's weghalen + true.

print_area.ExportAsFixedFormat 0, "T:\90. GPS metingen\Oude Rijn\oplevering\" &[COLOR=#ff0000] .range("e2").value[/COLOR]