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.php?t=391866&highlight=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.