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


Emne lukketSave as PDF Dialog box fejl
 Besvar Besvar
Forfatter
  Emne Søg Emne Søg  Emne funktioner Emne funktioner
jespergn Se dropdown
Bronze bruger
Bronze bruger
Avatar

Medlem: 23.Sep.2014
Status: Offline
Point: 90 		Direkte link til dette indlæg Emne: Save as PDF Dialog box fejl
    Sendt: 19.Jun.2016 kl. 17:29
Hej alle

Jeg har lavet følgende kode. Den skal bruges til automatisk at lave en PDF fil. Jeg vil gerne bare åbne dialogboxen og selv have mulighed for at vælge placeringen. Det virker fint.

Men når jeg trykker cancel i dialogboxen, laver den alligevel en fil der hedder FALSE som den så gemmer.

Nogle råd?

----

Sub PrintPDF()

' PrintPDF Macro

    Sheets(Array("Sheet1", "Sheet2")).Select
    
newName = [Navn] & " - Analyse"
fileSaveName = Application.GetSaveAsFilename(InitialFileName:=newName, fileFilter:="PDF (*.pdf), *.pdf")
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=fileSaveName
    
    
    Sheets("Sheet1").Activate

End Sub
Til top



Til top
EXCELGAARD Se dropdown
Platin bruger
Platin bruger


Medlem: 27.Dec.2012
Land: Denmark
Status: Offline
Point: 5418 		Direkte link til dette indlæg Sendt: 19.Jun.2016 kl. 18:42
Et tryk på [Cancel] udløser værdien 'False', som man efterfølgende kan teste for om brugeren netop har trykket [Cancel].

Altså skal du lave noget i retning af: 
If Navn = False Then ...
(Dette er kun et PoC eksempel - da jeg ikke kender din samlede kode, kan jeg ikke komme med et konkret forslag til en løsning)
Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.
Til top
jespergn Se dropdown
Bronze bruger
Bronze bruger
Avatar

Medlem: 23.Sep.2014
Status: Offline
Point: 90 		Direkte link til dette indlæg Sendt: 20.Jun.2016 kl. 10:02
Jeg prøver mig lige frem med det, tak :)
Til top
jespergn Se dropdown
Bronze bruger
Bronze bruger
Avatar

Medlem: 23.Sep.2014
Status: Offline
Point: 90 		Direkte link til dette indlæg Sendt: 20.Jun.2016 kl. 10:17
Fik den løst
--

Sub PrintPDF()

' PrintPDF Macro

    Sheets(Array("Sheet1", "Sheet2")).Select
    
newName = [Navn] & " - Analyse"
filesavename = Application.GetSaveAsFilename(InitialFileName:=newName, fileFilter:="PDF (*.pdf), *.pdf")

If filesavename = False Then
Sheets("Sheet1").Select
Exit Sub
End If

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=fileSaveName
    
    
    Sheets("Sheet1").Activate

End Sub
Til top
EXCELGAARD Se dropdown
Platin bruger
Platin bruger


Medlem: 27.Dec.2012
Land: Denmark
Status: Offline
Point: 5418 		Direkte link til dette indlæg Sendt: 20.Jun.2016 kl. 10:18
Thumbs Up
Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.
Til top
 Besvar Besvar

Skift forum Forum tilladelser Se dropdown

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