Dansk Regneark Forum
  Hjælp Hjælp  Søg i forum   Arrangementer   Opret ny bruger Opret ny bruger  Log ind Log ind


Emne lukketGem til PDF
 Besvar Besvar
Forfatter
  Emne Søg Emne Søg  Emne funktioner Emne funktioner
Matlock Se dropdown
Bronze bruger
Bronze bruger
Avatar

Medlem: 25.Mar.2012
Land: Danmark
Status: Offline
Point: 49 		Direkte link til dette indlæg Emne: Gem til PDF
    Sendt: 30.Jul.2013 kl. 20:39
Håber der er nogen der kan hjælpe...

Jeg er meget ny til VBA, så mangler lidt hjælp til lidt programmering



Hvordan skriver jeg koden til at gemme et enkelt "Worksheet" i en PDF fil, og i en bestem mappe på Computeren, når jeg trykker på en "command button" og samme tid rydde nogle bestemte celler efter "Worksheet" er gemt???

Håber det var tydlig nok...

M.v.h.
Matlock
Til top



Til top
Matlock Se dropdown
Bronze bruger
Bronze bruger
Avatar

Medlem: 25.Mar.2012
Land: Danmark
Status: Offline
Point: 49 		Direkte link til dette indlæg Sendt: 01.Aug.2013 kl. 13:39
Nu er har jeg prøvet at optage en makro, men hvordan får jeg filen til at hedde "Faktura(+ det nummer der står i celle "G16") istedet for "Faktura1" hver gang????????
 
Her er koden
Sub Makro1()
'
' Makro1 Makro
'
    Range("G16").Select
    ActiveCell.FormulaR1C1 = Range("G16")
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users\bøje\Desktop\Faktura\Faktura1.pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        True
       
       
End Sub
M.v.h.
Matlock
Til top
excelent Se dropdown
Guld bruger
Guld bruger
Avatar

Medlem: 12.Apr.2011
Land: DK
Status: Offline
Point: 2171 		Direkte link til dette indlæg Sendt: 01.Aug.2013 kl. 19:23
Prøv denne
 
Sub tst()
nr = [Ark1!G16]
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users\bøje\Desktop\Faktura\Faktura" & nr & ".pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        True
End Sub
 
Jeg anvender Excel 2016 DK. Hvad anvender DU ? HUSK TILBAGEMELDING !!!
Til top
Matlock Se dropdown
Bronze bruger
Bronze bruger
Avatar

Medlem: 25.Mar.2012
Land: Danmark
Status: Offline
Point: 49 		Direkte link til dette indlæg Sendt: 02.Aug.2013 kl. 07:08
Hey Exelent
 
Jeg kan ikke få den til at virker, der indikerer at der er fejl i hele denne del
 
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users\bøje\Desktop\Faktura\Faktura" & nr & ".pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        True
 
Havde ikke desværre ikke så meget tid igår til at rode med det, men tak for forsøget.
 
m.v.h.
Matlock
Til top
excelent Se dropdown
Guld bruger
Guld bruger
Avatar

Medlem: 12.Apr.2011
Land: DK
Status: Offline
Point: 2171 		Direkte link til dette indlæg Sendt: 02.Aug.2013 kl. 11:45
Den virker nu ok her
hedder dit ark Ark1 som i denne linie :   nr = [Ark1!G16] 
og er stien som den skal være ?
 
Jeg anvender Excel 2016 DK. Hvad anvender DU ? HUSK TILBAGEMELDING !!!
Til top
Matlock Se dropdown
Bronze bruger
Bronze bruger
Avatar

Medlem: 25.Mar.2012
Land: Danmark
Status: Offline
Point: 49 		Direkte link til dette indlæg Sendt: 05.Aug.2013 kl. 09:55
Så fik jeg den til at virke.

Super tak for hjælper
Til top
 Besvar Besvar

Skift forum Forum tilladelser Se dropdown

© 2010 - 2024 Dansk Regneark Forum - en del af Excel-regneark.dk