Opgelost Maak pdf maar niet opslaan (alleen openen)

[WD40]

Goedemiddag,

Kan je een pdf bestand vanuit Excel ook alleen openen?
Mij lukt het alleen als het bestandje wordt opgeslagen (in dit geval op "TEMP").

Bij voorbaat dank voor de moeite.

 

[HSV]

Bij mij ook alleen maar.
Je kan het daar ook wel weer verwijder met de functie:

Kill Naam & ".pdf"

 

[edmoor]

Wel even een seconde wachten voor je hem verwijderd, anders is hij al weg voordat 'ie geopend kon worden:

Application.Wait Now + TimeValue("00:00:01")

 

[AHulpje]

Probeer het eens met preview=True:

    Range("A3:B11").Select
    ActiveWindow.SelectedSheets.PrintOut , , , True

 

[WD40]

Dank u heren.
Waar kan ik dat het beste neerzetten?

 

[AHulpje]

Hier:

Sub Knop3_Klikken()
    Range("A3:B11").Select
    ActiveWindow.SelectedSheets.PrintOut , , , True
End Sub

 

[edmoor]

Waar kan ik dat het beste neerzetten?

Direct na het maken en openen van je PDF uiteraard.

 

[AHulpje]

Bij mij is de naam van de "Microsoft Print to PDF" printer: "Microsoft Print to PDF op Ne01:"
Om er achter te komen hoe je "Microsoft Print to PDF" printer precies heet doe je het volgende:
Druk je bestand af naar de printer genaamd "Microsoft Print to PDF"
Run daarna deze macro:

Sub GetPrintername()
    MsgBox "Huige printer: " & Application.ActivePrinter
End Sub

Wijzig je printer in de printdialoog weer in je standaard printer.
Zet daarna op de plaats van xxxxxxx in onderstaande macro de gevonden printernaam

Sub RUN_PRINT()
    Range("A3:B11").Select
    currentprinter = Application.ActivePrinter
    Application.ActivePrinter = "xxxxxxxxxxxxxxxxxx"
    ActiveWindow.SelectedSheets.PrintOut , , , True 'print preview
    Application.ActivePrinter = currentprinter
End Sub

 

[WD40]

Excuses heren, dan krijg ik bijgevoegde foutmelding.

 

[WD40]

Hoi AHulpje,

Ja prachtig, maar als ik dan zou willen kan ik deze niet meer opslaan of versturen.

 

[WD40]

AHulpje,
Sorry jouw laatste reactie ga ik nog eens bestuderen.
Ik had het over jouw eerste reactie. Excuses nogmaals.

 

[WD40]

AHulpje, bij mij heet hij ook Ne01, maar toch foutmelding

 

[HSV]

Als je het ook wilt versturen met Outlook (daarna wordt het bestand weer verwijderd).

Sub hsv()
Range("a3:b11").ExportAsFixedFormat 0, Environ("temp") & "\Jan.pdf"
With CreateObject("Outlook.Application").CreateItem(0)
        .To = "mailadres@gmail.com"
        .Subject = "Zomaar iets"
        .Body = "Geachte heer/mevrouw,"
        .Attachments.Add Environ("temp") & "\Jan.pdf"
        .Display 'or send
       End With
 Kill Environ("temp") & "\Jan.pdf"
End Sub

 

[WD40]

Hoi HSV,

Ik vind het werkelijk waar prachtig wat je gemaakt hebt.
Maar graag zou ik de pdf geopend zien en dat je deze dan kan opslaan.

Wel erg bedankt voor het meedenken. Dat geldt voor iedereen trouwens

 

[JEC.]

Probeer het eens zo

Sub jec()
 With ThisWorkbook
   If .Path = "" Then .SaveAs Environ("temp") & "\Jan.xlsm", 52
   .Sheets(1).Range("a3:b11").ExportAsFixedFormat xlTypePDF, , , , , , , 1
 End With
End Sub

 

[AHulpje]

Ik heb het sterke vermoeden dat je printer niet NE01 heet maar voluit "Microsoft Print to PDF op Ne01:",dus:

Sub RUN_PRINT()
    Range("A3:B11").Select
    currentprinter = Application.ActivePrinter
    Application.ActivePrinter = "Microsoft Print to PDF op Ne01:"
    ActiveWindow.SelectedSheets.PrintOut , , , True 'print preview
    Application.ActivePrinter = currentprinter
End Sub

 

[WD40]

Hoi JEC,

Ja prachtig, dit volstaat.

@AHulpje, ja dit werkt ook heel mooi.

Ik ga kijken welke ik ga kiezen, wat een luxe .

HSV, Edmoor, AHulpje en JEC, ontzettend bedankt voor de hulp.