Søg
Avatar billede ngunordic Juniormester
13. juli 2017 - 14:12 Der er 5 kommentarer og
1 løsning

VBA - Gem som PDF

Hej med JEr

Nedenstående kode virker glimrende, men hvis jeg ændrer fil type til xlTypePDF,

får jeg følgende fejl;

"Run-Time error 1004
Metoden Show for klassen Dialog mislykkedes"

Det kan jeg ikke gennemskue :(
----
Private Sub PDF_Click()

' laver kundevenlig version og gemmer som PDF

Dim filnavn As String

Dim Firkant As Shape

Sheets("OVERSIGT!").Unprotect "Complea!"

Range("F4:G8").ClearContents
       
Sheets("OVERSIGT!").Protect "Complea!", True, True

filnavn = "Kalkulation_" & Range("D8").Value & "_" & Range("D11").Value
    Application.Dialogs(xlDialogSaveAs).Show filnavn, xlOpenXMLWorkbookMacroEnabled
   
End Sub
Avatar billede Jessen Seniormester
14. juli 2017 - 08:33 #1
Hej,

Jeg plejer at bruge følgende til at gemme pdf.

Sub pdf()

filnavn = "Kalkulation_" & Range("D8").Value & "_" & Range("D11").Value

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    "C:\temp\" & filnavn & ".pdf" _
    , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
    :=False, OpenAfterPublish:=False

End Sub
Avatar billede ngunordic Juniormester
14. juli 2017 - 08:54 #2
Hej,

Den virker fint, dog vil jeg gerne have at den åbner den PDF, der bliver dannet? :)
Avatar billede Jessen Seniormester
14. juli 2017 - 09:15 #3
Hej,

Du skal blot ændre: "OpenAfterPublish:=False" til "OpenAfterPublish:=True"
Avatar billede ngunordic Juniormester
14. juli 2017 - 10:06 #4
Kanon :)
Avatar billede Søren Juniormester
15. januar 2018 - 11:05 #5
Hej,

Jeg har lige et supplerende spørgsmål til tråden, jeg håber I kan hjælpe med! :)

Er det muligt at indstille den til kun at konventere et ønsket område til pdf(altså ikke et helt sheet)? og hvis ja, hvordan skriver jeg det ind i koden?

På forhånd mange tak
Avatar billede rln Juniormester
13. august 2019 - 12:44 #6
Jeg fandt dette på nettet - har dog ikke selv prøvet ...

'Save a range as PDF
Sheets("Sheet1").Range("A1:H20").ExportAsFixedFormat Type:=xlTypePDF, _
    Filename:="C:\Users\marks\Documents\Saved PDF.pdf"
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Excel kurser
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig
Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel Indlæg Oprettet Seneste aktivitet
Hvordan bruges indeks & sammenlign når der skal søges over flere kolonner? Af Laugesen1 i Excel 4 08/03/202611:56 08/03/202613:57
Tips til at mestre Excel hurtigt Af MonikaG32 i Excel 4 04/03/202617:11 06/03/202609:37
Båndet i Excel online har ændret størrelse Af Monique i Excel 3 19/02/202614:23 20/02/202608:26
Fjern tekst efter mellemrum Af ABE15 i Excel 2 18/02/202620:41 19/02/202611:30
Udskrift af ark Af boro23 i Excel 4 17/02/202608:38 18/02/202607:46
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
21/0300:56 3 skærme 27 Af bbm i Skærme
20/0316:18 "gratis" "reklamefri" hjemmeside -næsten --som man kan lave i søvne : Af Novice-1 i Andet software
19/0316:52 Proxy router/server Af joki i Routere & Switches
19/0311:04 Icotera vs Nokia fiberboks Af Uvanga i Routere & Switches
18/0323:30 Outlook send/modtag manuelt Af pwn i Office & Kontorpakker
White papers
Flere white papers »