Aanroepen PDFCreator printer

[Tielemans5]

Allen,

bijgevoegd is een document die een voorganger binnen ons bedrijf heeft gemaakt. Het document moet dringend in lay-out worden aangepast dus kijk daar even omheen. Het probleem zit het in het aanroepen van de PDFCreator printer. Bij de meeste gebruikers zit de PDFCreator printer op Ne02 maar bij een aantal anderen zitten ze op Ne04, Ne05 enz. Is het mogelijk om de code zo te maken dat automatisch de juiste wordt geselecteerd? Mijn kennis van VBA reikt niet zo ver dat ik code kan bedenken om het op te lossen. Kan iemand een voorzet geven hoe dit op te lossen?

Bekijk bijlage RIE voorbeeld.xlsm

Sub plot()
    ActiveSheet.Unprotect
    ActiveSheet.Range("$R$1:$R$343").AutoFilter Field:=1, Criteria1:="1"
    Application.ActivePrinter = "PDFCreator op Ne02:"
    ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,""PDFCreator op Ne02:"",,TRUE,,FALSE)"
    ActiveSheet.Range("$R$1:$R$343").AutoFilter Field:=1
    Range("B1").Select
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        False, AllowSorting:=True, AllowFiltering:=True, AllowUsingPivotTables:= _
        True
End Sub

 

[jkpieterse]

J kunt vanuit Excel ook rechtstreeks een PDF maken middels de "ExportAsFixedFormat" methode. Bijvoorbeeld:

    Dim sDestPath As String
    Dim sFileName As String
    sDestPath = "c:\Users\[username]\Documents\"
    sFileName = "Report " & Format(Date, "yyyy-mm-dd") & ".pdf"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
                            Filename:=sDestPath & sFileName, _
                            Quality:=xlQualityStandard, _
                            IgnorePrintAreas:=False, _
                            OpenAfterPublish:=False

 

[Tielemans5]

Dat werk perfect ja maar het gaat niet alleen om het maken van een PDF. In de code die wij gebruiken wordt er ook gekeken naar wat er is aangevinkt. Is het aangevinkt dan wordt het geprint. Is het onderdeel niet aangevinkt dan wordt het niet geprint. Met jouw code wordt het hele blad geprint, ook de onderdelen die niet van toepassing zijn.

J kunt vanuit Excel ook rechtstreeks een PDF maken middels de "ExportAsFixedFormat" methode. Bijvoorbeeld:

    Dim sDestPath As String
    Dim sFileName As String
    sDestPath = "c:\Users\[username]\Documents\"
    sFileName = "Report " & Format(Date, "yyyy-mm-dd") & ".pdf"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
                            Filename:=sDestPath & sFileName, _
                            Quality:=xlQualityStandard, _
                            IgnorePrintAreas:=False, _
                            OpenAfterPublish:=False

 

[jkpieterse]

Je moet natuurlijk mijn code voorbeeld integreren met jouw code, dus het filteren e.d. moet er wel bij komen