Rapport til PDF Part II

Kan du ikke læse alle dine moduler ind ved start af access.  :o)

Denne kode virker og jeg bruger pdfMachine, som faktisk er ret god (BroadGun pdfMachine)Du kan selvfølgelig skifte BroadGun pdfMachine ud med PDF Writer

På komando knab sættes

Private Sub Command283_Click()
On Error GoTo Err_Command5_Click

ChangeToAcrobat
ChangePdfFileName "Name of pdf file including .pdf"
DoCmd.OpenReport "Test Report", acViewNormal
ResetDefaultPrinter
Exit_Command5_Click:
    Exit Sub

Err_Command5_Click:
    MsgBox "End sending file", vbInformation
   
    Resume Exit_Command5_Click

End Sub

I modul skrives
----------------

Option Compare Database


Option Explicit
' These functions used with procedures from
' Microsoft Access 95 How-To
'(c) 1998 Ken Getz and Paul Litwin
' All rights reserved.

' Other modules from this source are:
' basDefaultPrinter
' basGetPrinters
' basIniFile
' basPrintTypes
' basToken

' You'll also need defaultprt.zip

Private drexisting As aht_tagDeviceRec
Const AcrobatName = "BroadGun pdfMachine"
Const AcrobatDriver = "PDFWRITR"
Const AcrobatPort = "LPT1:"
Function ResetDefaultPrinter()
    Call ahtSetDefaultPrinter(drexisting)
End Function
Function ChangeToAcrobat()
    If ahtGetDefaultPrinter(drexisting) Then
        Dim dr As aht_tagDeviceRec
        With dr
            .drDeviceName = AcrobatName
            .drDriverName = AcrobatDriver
            .drPort = AcrobatPort
        End With
        Call ahtSetDefaultPrinter(dr)
  End If
End Function

Sub ChangePdfFileName(NewFileName As String)
  Call aht_apiWriteProfileString("BroadGun pdfMachine", _
            "PDFFileName", NewFileName)
End Sub

Skift 'BroadGun pdfMachine' ud med 'Acrobat PDFWriter'

Det er den samme kode som pdfwriter, men har du erfaringer med at access vælger pdf printer og ikke kan skifte tilbage... BroadGun koden er den samme pdfwriter koden.,,

Det er som om den kun skifter tilbage fra pdfwriter til standardprinter hvis man lukker programmet. PÅ mig virker det som om at printeren bliver loadet ind i starten, og ikke mere

You may be able to change the printer in another way
http://support.microsoft.com/default.aspx?scid=kb;en-us;319317

There are LOTS of articles concerning Printing

http://support.microsoft.com/search/default.aspx?withinResults=false&QuerySource=gASr_Query&Catalog=LCID%3D1033%26CDID%3DEN-US-KB%26PRODLISTSRC%3DON&Product=acc&Queryc=Printer&Query=Printer&KeywordType=ANY&maxResults=150&Titles=false&numDays=

Har ikke været ude for at den ikke skifter tilbage. Prøv at lave et eksempel med min kode og se om den kør en forskel. Evt. importer din db ind i en ny acces db

Hej bo lop,

Jeg er også ved at lave min db således at den også kan skrive ud til PDF hvis brugeres vil have det, men mine raporter er ikke til at styre, derfor vil jeg høre om du evt. kunne dele din erfaring med mig.

Lige nu tænker jeg på at brugeres skal vælge PDF printer i en dropdovn menu også når han er færdig med dette skal alt være som før.

Jeg ser frem til at høre fra dig.

glenn@mentzler.dk