1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39

   Sub AccessConverter()

       Dim DPSDK As Object = CreateObject("docuPrinter.SDK")

       DPSDK.DocumentOutputFormat = "PDF"
       DPSDK.DocumentOutputName = "demoAccess"
       DPSDK.DocumentOutputFolder = "c:\users\public\"

       DPSDK.DocumentResolution = 300

       DPSDK.HideSaveAsWindow = True
       DPSDK.DefaultAction = 1

       DPSDK.ApplySettings()

       Dim objAccess As Object
       objAccess = CreateObject("Access.Application")

       Dim defPrinter As String = DPSDK.GetDefaultPrinter

       DPSDK.SetDefaultPrinter("docuPrinter")
       objAccess.OpenCurrentDatabase("c:\users\public\access.mdb", True)

       objAccess.DoCmd.OpenReport("rptCatalog", 0)
       'rptCtatalog is the repport name

       objAccess.Quit(2)
       objAccess = Nothing

       Dim RVal As Integer = DPSDK.Create ' Create output document
       If (RVal <> 0) Then MsgBox("Error. Create returns " + CStr(Rval))

       DPSDK.SetDefaultPrinter(defPrinter)

       DPSDK = Nothing

       MsgBox("Done converting!!!")

   End Sub