Click here to Skip to main content
15,909,039 members
Home / Discussions / Visual Basic
   

Visual Basic

 
GeneralRe: EXPORT PDF from VB.NET Pin
Jim Matthews14-Oct-04 3:12
Jim Matthews14-Oct-04 3:12 
GeneralRe: EXPORT PDF from VB.NET Pin
partt14-Oct-04 4:30
partt14-Oct-04 4:30 
GeneralRe: EXPORT PDF from VB.NET Pin
Jim Matthews14-Oct-04 5:27
Jim Matthews14-Oct-04 5:27 
GeneralRe: EXPORT PDF from VB.NET Pin
partt14-Oct-04 6:54
partt14-Oct-04 6:54 
GeneralRe: EXPORT PDF from VB.NET Pin
Jim Matthews14-Oct-04 8:11
Jim Matthews14-Oct-04 8:11 
GeneralRe: EXPORT PDF from VB.NET Pin
partt14-Oct-04 9:35
partt14-Oct-04 9:35 
GeneralRe: EXPORT PDF from VB.NET Pin
Jim Matthews14-Oct-04 10:36
Jim Matthews14-Oct-04 10:36 
GeneralRe: EXPORT PDF from VB.NET Pin
partt15-Oct-04 5:14
partt15-Oct-04 5:14 
I tried this but it gives me an error: "Invalid Field Name"

Dim crReportDocument As ReportDocument
Dim crExportOptions As ExportOptions
Dim crDiskFileDestinationOptions As DiskFileDestinationOptions
Dim Fname As String

crReportDocument = New ReportDocument()
crReportDocument.Load("destination to .rpt")

Dim logonInfo As New TableLogOnInfo()
Dim i As Integer

For i = 0 To crReportDocument.Database.Tables.Count - 1
logonInfo.ConnectionInfo.ServerName = "servername"
logonInfo.ConnectionInfo.DatabaseName = "DBname"
logonInfo.ConnectionInfo.UserID = "userID"
logonInfo.ConnectionInfo.Password = "passWord"
crReportDocument.Database.Tables.Item(i).ApplyLogOnInfo(logonInfo)
Next

Dim discreteParam As New ParameterDiscreteValue()
Dim paramField As ParameterFieldDefinition
Dim defaultValue As ParameterValues

paramField = crReportDocument.DataDefinition.ParameterFields.Item("SexID")
discreteParam.Value = txtGender.Text.Trim
defaultValue = paramField.DefaultValues
defaultValue.Add(discreteParam)
paramField.ApplyCurrentValues(defaultValue)

paramField = crReportDocument.DataDefinition.ParameterFields.Item("RaceID")
discreteParam.Value = txtRace.Text.Trim
defaultValue = paramField.DefaultValues
defaultValue.Add(discreteParam)
paramField.ApplyCurrentValues(defaultValue)

paramField = crReportDocument.DataDefinition.ParameterFields.Item("LBirth")
discreteParam.Value = lblUpDOB.Text
defaultValue = paramField.DefaultValues
defaultValue.Add(discreteParam)
paramField.ApplyCurrentValues(defaultValue)

paramField = crReportDocument.DataDefinition.ParameterFields.Item("UBirth")
discreteParam.Value = lblLowDOB.Text
defaultValue = paramField.DefaultValues
defaultValue.Add(discreteParam)
paramField.ApplyCurrentValues(defaultValue)

paramField = crReportDocument.DataDefinition.ParameterFields.Item("SiteID")
discreteParam.Value = ddlSite.SelectedItem.Value
defaultValue = paramField.DefaultValues
defaultValue.Add(discreteParam)
paramField.ApplyCurrentValues(defaultValue)

Dim tDay As Integer
Dim tCall As Integer
Dim DD As DateTime 'Date that is X amount of days in the past decided by txtPast
Dim CallActivity As DateTime 'date that is x amount of days in past txtCall, for Call Activity
tDay = Integer.Parse(txtPast.Text)
tCall = Integer.Parse(txtCall.Text)
DD = Today.AddDays(-tDay)
CallActivity = Today.AddDays(-tCall)

paramField = crReportDocument.DataDefinition.ParameterFields.Item("DD")
discreteParam.Value = DD
defaultValue = paramField.DefaultValues
defaultValue.Add(discreteParam)
paramField.ApplyCurrentValues(defaultValue)

paramField = crReportDocument.DataDefinition.ParameterFields.Item("CallActivity")
discreteParam.Value = CallActivity
defaultValue = paramField.DefaultValues
defaultValue.Add(discreteParam)
paramField.ApplyCurrentValues(defaultValue)

Dim N As String
N = "CallSheets" & ddlSite.SelectedItem.Text & Now & ".PDF"
N = Replace(N, Chr(32), "")
N = Replace(N, ":", "")
N = Replace(N, "/", "")
N = Replace(N, ",", "")

Fname = "destination path" & N

crDiskFileDestinationOptions = New DiskFileDestinationOptions()
crDiskFileDestinationOptions.DiskFileName = Fname

crExportOptions = crReportDocument.ExportOptions
With crExportOptions
.DestinationOptions = crDiskFileDestinationOptions
.ExportDestinationType = ExportDestinationType.DiskFile
.ExportFormatType = ExportFormatType.PortableDocFormat
End With

crReportDocument.Export()
GeneralCreditcard validation Pin
lathashrik13-Oct-04 6:41
lathashrik13-Oct-04 6:41 
GeneralRe: Creditcard validation Pin
Colin Angus Mackay13-Oct-04 6:48
Colin Angus Mackay13-Oct-04 6:48 
Generalauto Launch after install vb.net Pin
Steve6913-Oct-04 6:11
Steve6913-Oct-04 6:11 
GeneralRe: auto Launch after install vb.net Pin
Anonymous13-Oct-04 9:07
Anonymous13-Oct-04 9:07 
GeneralRe: auto Launch after install vb.net Pin
Steve6913-Oct-04 23:26
Steve6913-Oct-04 23:26 
GeneralRe: auto Launch after install vb.net Pin
Anonymous13-Oct-04 11:16
Anonymous13-Oct-04 11:16 
Questiondata grid? Pin
unambiguos13-Oct-04 4:09
unambiguos13-Oct-04 4:09 
AnswerRe: data grid? Pin
Mekong River13-Oct-04 4:14
Mekong River13-Oct-04 4:14 
GeneralRe: data grid? Pin
unambiguos13-Oct-04 20:46
unambiguos13-Oct-04 20:46 
GeneralRe: data grid? Pin
Mekong River14-Oct-04 17:06
Mekong River14-Oct-04 17:06 
GeneralWriting DirectoryInfo() to XML File Pin
cwayman12-Oct-04 22:06
cwayman12-Oct-04 22:06 
GeneralRe: Writing DirectoryInfo() to XML File Pin
J4amieC13-Oct-04 2:02
J4amieC13-Oct-04 2:02 
GeneralRe: Writing DirectoryInfo() to XML File Pin
cwayman13-Oct-04 21:58
cwayman13-Oct-04 21:58 
GeneralRe: Writing DirectoryInfo() to XML File Pin
cwayman14-Oct-04 3:29
cwayman14-Oct-04 3:29 
GeneralSaving ,Deleting ,Editing PDF forms in DOT NET Pin
anujohn12-Oct-04 19:51
anujohn12-Oct-04 19:51 
GeneralRe: Saving ,Deleting ,Editing PDF forms in DOT NET Pin
Colin Angus Mackay13-Oct-04 0:04
Colin Angus Mackay13-Oct-04 0:04 
GeneralRe: Saving ,Deleting ,Editing PDF forms in DOT NET Pin
anujohn13-Oct-04 0:22
anujohn13-Oct-04 0:22 

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Praise Praise    Rant Rant    Admin Admin   

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.