export datareport to pdf

[phpman]

I have read many threads and I still don't understand. I don't have crystal reports. I am working with the data reporting from vb6.

I have something like this

Set Cn = New ADODB.Connection
        Cn.CursorLocation = adUseClient
        Cn.Open "provider=MSDataShape;data provider=microsoft.jet.oledb.4.0;Data Source=" + App.Path + "\Software.mdb"
    
        If ChkAll.Value = 1 Then
            s = "Department like '%'"
            area = "All Departments"
        Else
            s = "Department = '" & CmbDept.Text & "'"
            area = CmbDept.Text
        End If
        
        If s <> "" Then
        
            'MsgBox "SELECT UserID, [Software Title], Version, Department, [Assigned Date], Server FROM [MS Office Licenses] WHERE " & s & " ORDER BY [" & CmbOrderby1.Text & "], [" & CmbOrderby2.Text & "]"
                    
            Dim rpt As New RptBydept
            
            rs.Open ("SHAPE{SELECT Machine, UserID, [Software Title], Version, Department," & _
            "[Assigned Date], Server FROM [MS Office Licenses] WHERE " & s & "  and " & _
            "UserID NOT LIKE '--%' ORDER BY [" & CmbOrderby1.Text & "], [" & CmbOrderby2.Text & "]}" & _
            " AS SQL1 " & _
            "COMPUTE count(SQL1.Department) AS DeptCount,SQL1 BY Department"), Cn, adOpenStatic, adLockOptimistic

          
            'Update fields and datareport control names to those you use
            'Set datasource and bind recordset fields.
            Set rpt.DataSource = rs
            'First = False
            
            rpt.Sections("Section1").Controls("Text8").DataField = "DeptCount"
            With rpt.Sections("SQL_Detail")
               
                .Controls("Text1").DataField = "UserID"    'where quantity is a field in the recordset
                .Controls("Text1").DataMember = "SQL1"
                .Controls("Text2").DataField = "Software Title"
                .Controls("Text2").DataMember = "SQL1"
                .Controls("Text3").DataField = "Version"
                .Controls("Text3").DataMember = "SQL1"
                .Controls("Text4").DataField = "Department"
                .Controls("Text4").DataMember = "SQL1"
                .Controls("Text5").DataField = "Server"
                .Controls("Text5").DataMember = "SQL1"
                .Controls("Text6").DataField = "Assigned Date"
                .Controls("Text6").DataMember = "SQL1"
                .Controls("Text7").DataField = "Machine"
                .Controls("Text7").DataMember = "SQL1"                                    
            
            End With
           
            rpt.Sections("Section1").Controls("Label17").Caption = area
           
            rpt.Show vbModal
    DoCmd.OpenReport rpt, acViewNormal
            Unload rpt
            Call DBDisconnect
            Set rpt = Nothing
            'Unload FrmReports
            Exit Sub

        Else
            MsgBox "Empty Search String"
        End If

How do I put that ina pdf file? I have installed pdfCreator for my printer.

This just errors out "DoCmd.OpenReport rpt, acViewNormal" But I think that is for msAccess instead of regular vb.

How do I take a report like that and make it export to pdf? Also how to I export to pdf with a report.dsr ?

[phpman]

so I take it from nobody answering that it is no possible?

[wes4dbt]

I did a search on "export pdf" and found many threads. This one talks about your issue. http://www.vbforums.com/showthread.p...ght=export+pdf

[phpman]

not really. I have read that one and I do not see any code on how to add it to the distiller. As I said, out of all the threads I have read not one show code on how to add the information I get in the data report to be printed with the distiller. Thanks for looking though.

[phpman]

and it seems you cannot get the Adobe Distiller anymore unless you pay for it. All I see is Distiller Server 8

[wes4dbt]

I noticed talk about CR having the export capablity. I know you mentioned you don't have CR, but I just thought I mention there are very inexpensive versions of CR on eBay. If you find any new information on your issue I hope you'll post it, I'm interested in this issue also. I don't use CR either, I've never taken the time to learn.

[phpman]

yeah I have read the same and I particularly don't want to go that route.

I have tried pdfFactory and PDFCreator with no luck. both install a distiller but I have not be able to get them to work.

I will update this thread if I find a solution.

[wes4dbt]

Just came across this new thread http://www.vbforums.com/showthread.php?t=448323

If you can find a way to export your report to Word then maybe this will work. Don't like the idea of two convertions but if your desperate it may be worth looking at.

[phpman]

Yeah, I saw that and as it is now I have it exporting to excel 2007 so I can convert to pdf from excel if I wanted to. Just wanted to give the user another choice besides excel.