Save as PDF Dialog box fejl
Udskrevet fra: Dansk Regneark Forum
Kategori: Hjælp til regneark.
Forum navn: Makro og VBA
Forum beskrivelse: Hjælp til Makroer og VBA-programmering
Web-adresse: https://forum.excel-regneark.dk/forum_posts.asp?TID=2614
Udskrevet den: 23.Nov.2024 kl. 12:27
Emne: Save as PDF Dialog box fejl
Besked fra: jespergn
Emne: Save as PDF Dialog box fejl
Posteringsdato: 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 |
Svar:
Besked fra: EXCELGAARD
Posteringsdato: 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:
------------- 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. |
Besked fra: jespergn
Posteringsdato: 20.Jun.2016 kl. 10:02
| Jeg prøver mig lige frem med det, tak :) |
Besked fra: jespergn
Posteringsdato: 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
|
Besked fra: EXCELGAARD
Posteringsdato: 20.Jun.2016 kl. 10:18
 ------------- 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. |