Opslaan als PDF, mailen en printen

[Tamara27]

Beste allemaal,

Ik heb een bestandje in excel, dat ik met 1 druk op de knop wil laten toevoegen in mail als PDF maar ook wil laten afdrukken.
De persoon die het bestand zal moeten gebruiken is niet superhandig met alle computertoepassingen, dus ik wil dit voor haar zo gemakkelijk mogelijk maken. Het bestand moet achteraf nergens bewaard worden.

Het bijvoegen in bestand als pdf is al prima gelukt, het komt ook bij de juiste persoon terecht.
Alleen het afdrukken krijg ik niet klaar.

Ik heb alvast volgende code

Private Sub cmdMailen_Click()
    Dim Bestand As String
    Dim OutApp As Object
    Dim OutMail As Object
    
    Bestand = Environ("TEMP") & "\" & ActiveSheet.Name & ".pdf"
    ActiveSheet.ExportAsFixedFormat _
    Type:=xlTypePDF, _
    Filename:=Bestand
    
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    With OutMail
        .to = "[COLOR="#008000"]mailadres@mail.com[/COLOR]"
        .CC = ""
        .BCC = ""
        .Subject = "[COLOR="#008000"]Bestelling[/COLOR]"
        .Body = "[COLOR="#008000"]Bij deze het bestand[/COLOR]"
        .Attachments.Add Bestand
        .Send
    End With
    
    Kill Bestand
End Sub

Ik zou dus ergens nog een print.out of docmd.Print moeten bijzetten, vermoedelijk tussen END WITH en KILL BESTAND
maar ik krijg het niet klaar.

Ohja: de printer verschilt van pc tot pc, dus hier moet ik ook rekening meehouden.

Bedankt!!!

 

[OctaFish]

Wat wil je dan geprint hebben? De PDF of je brondocument?

 

[Tamara27]

Dat maakt al niet uit, aangezien er toch hetzelfde op vermeld staat.

Bij voorkeur datgene wat het makkelijkste in een code te gieten is. Ik moet het namelijk ook ooit aan de collega's leren zodat ze er mee verder kunnen als ik ooit vertrek

 

[OctaFish]

En is het een Excel bestand, of een Word document? Dat maakt voor afdrukken wellicht nog uit?

 

[VenA]

ActiveSheet.printpreview '.printout

 

[Tamara27]

Het bronbestand was inderdaad een excel-file.

De oplossing van VenA werkt perfect en is zooo eenvoudig! Dat ik dat over het hoofd gezien heb.

Erg bedankt voor jullie input!