PDF opslaan als

[Rainbow88]

Ik heb al een kleine code geschreven om af te drukken met PDFcreator. Nu als ik deze gebruik blijf ik haken omdat hij niet zegt waar hij de pdf opslaat en het ook niet vraagt. Ik probeer deze ook in vba te zetten maar tot nu toe blijft de code niet werken. Zou iemand mij kunnen verder helpen?

Private Sub Knop29_Click()
On Error GoTo Err_Knop29_Click

    Set myPrinter = Application.Printer
    Set Application.Printer = Application.Printers("PDFCreator")

    Dim stDocName As String
    
    stDocName = "rptbasis"
    DoCmd.OpenReport stDocName, acPrevieuw, , "factnr = " & Forms!frmeenfactafdr!factnr
    SaveAs "C:\Users\ilse\Documents\Facturatie" & stDocName
    Close
    Set Application.Printer = myPrinter
Exit_Knop29_Click:
    Exit Sub

Err_Knop29_Click:
    MsgBox Err.Description
    Resume Exit_Knop29_Click
    
End Sub

Bedankt!

 

[RMS123]

nooit met Access gewerkt, maar:
in o.a. C# kun je niet overschrijven: Dus check ff wat er in de safe-folder staat.
en als C#/VB beginner, zal ik nooit verwachten dat hier een savefiledialog uit zou ontstaan... :/ of dat in Access anders, maar ik dacht dat dat VB was...

Hopelijk kom je er verder mee!

 

[Rainbow88]

Dat is het net ik vind de safe-folder niet terug anders kon ik hieruit mijn gegevens halen. Dus hij moet toch ergens opslaan lijkt me.

 

[RMS123]

haaa het blijft leuk om lmgtfy.com te gebruiken
http://lmgtfy.com/?q=acces+safe+file+dialog

 

[Rainbow88]

Private Sub Knop29_Click()
On Error GoTo Err_Knop29_Click

    Set myPrinter = Application.Printer
    Set Application.Printer = Application.Printers("PDFCreator")

    Dim stDocName As String
    
    stDocName = "rptbasis"
    DoCmd.OpenReport stDocName, acPrevieuw, , "factnr = " & Forms!frmeenfactafdr!factnr
    
    
    Dim strFilter As String
    Dim strInputFileName As String

    strFilter = addFilterItem(strFilter, "all Files (*.*)", "*.*")

    strInputFileName = ahtCommonFileOpenSave( _
                            Filter:=strFilter, _
                            OpenFile:=False, _
                            DialogTitle:="Save file As...", _
                            Flags:=ahtOFN_HIDEREADONLY)

    If Len(strInputFileName) > 0 Then
        ' Do something with the selected file
    Else
        'No file chosen, or user canceled
    End If
    
    
    
    'SaveAs "C:\Users\ilse\Documents\Facturatie" & stDocName
    'Close
    Set Application.Printer = myPrinter
Exit_Knop29_Click:
    Exit Sub

Err_Knop29_Click:
    MsgBox Err.Description
    Resume Exit_Knop29_Click
    
End Sub

Hiermee werkt het ook nog niet hoor en google kende ik al ze

 

[RMS123]

'SaveAs "C:\Users\ilse\Documents\Facturatie" & stDocName
kan toch nooit? (door c# ogen)
moet dat niet gewoon dit zijn?:
'SaveAs stDocName

 

[Rainbow88]

'SaveAs "C:\Users\ilse\Documents\Facturatie" & stDocName
'Close

was wat ik eerst gebruikt maar dit werkte niet en dan heb ik de code erboven gebruikt maar dit werkt ook niet.

im strFilter As String
    Dim strInputFileName As String

    strFilter = addFilterItem(strFilter, "all Files (*.*)", "*.*")

    strInputFileName = ahtCommonFileOpenSave( _
                            Filter:=strFilter, _
                            OpenFile:=False, _
                            DialogTitle:="Save file As...", _
                            Flags:=ahtOFN_HIDEREADONLY)

    If Len(strInputFileName) > 0 Then
 
    Else
 
    End If

 

[RMS123]

Ik zal het nader toelichten...
wat jij denk ik doet, als het csharp was, is C:\Users\ilse\Documents\FacturatieC:\path...........\ volgens mij zet jij 2 paden in 1 string... miss. (niet hoor maar dat lijkt mij)

Gebeurt er nu nog steeds exact hetzelfde?

 

[Rainbow88]

Nu doet ie trouwens gewoon niets meer ^^ dus het zit weer helemaal mis

 

[JeroenMioch]

Er zit een foutje in de code want het is niet ACprevieuw maar ACpreview

DoCmd.OpenReport stDocName, acPreview

DoCmd.OutputTo acOutputReport, "JouRapport",
acFormatPDF, "C:\Users\ilse\Documents\FacturatieC:\path...........\"

 

[RMS123]

lol

 

[JeroenMioch]

is t grappig ?

 

[RMS123]

eigenlijk wel dat we daar overheen hebben gekeken
maarja de oplossing is er... denk ik

@TS
als die het doet ff topic op opgelost...

 

[Rainbow88]

Hij heeft nog altijd een probleem

De matrix van AddFilterItem is blijkbaar nog niet correct of zoiets

 

[huijb]

@Rainbow88:
Wanneer je een VBA-code of formule wil toevoegen, plaats deze dan tussen de code-tags (

 en

) oftewel selecteer je code en klik op het # icoontje. Bij voorbaat dank, zeker ook namens de helpers.