Click here to Skip to main content
15,891,136 members
Home / Discussions / Visual Basic
   

Visual Basic

 
GeneralRe: Hex Code Pin
Paul Conrad30-Oct-08 18:38
professionalPaul Conrad30-Oct-08 18:38 
GeneralRe: Hex Code Pin
Guffa30-Oct-08 9:55
Guffa30-Oct-08 9:55 
GeneralRe: Hex Code Pin
pdnet29-Oct-08 20:03
pdnet29-Oct-08 20:03 
GeneralRe: Hex Code Pin
Paul Conrad30-Oct-08 4:16
professionalPaul Conrad30-Oct-08 4:16 
QuestionVB.NET Crystal Reports Print Routines W/ Sharp Copiers Pin
programmervb.netc++26-Oct-08 18:50
programmervb.netc++26-Oct-08 18:50 
AnswerRe: VB.NET Crystal Reports Print Routines W/ Sharp Copiers Pin
programmervb.netc++27-Oct-08 10:36
programmervb.netc++27-Oct-08 10:36 
AnswerRe: VB.NET Crystal Reports Print Routines W/ Sharp Copiers Pin
Tom Deketelaere28-Oct-08 1:17
professionalTom Deketelaere28-Oct-08 1:17 
GeneralRe: VB.NET Crystal Reports Print Routines W/ Sharp Copiers Pin
programmervb.netc++28-Oct-08 4:27
programmervb.netc++28-Oct-08 4:27 
Dim tReportName As String = String.Empty
Dim bCreateSchema As Boolean
Dim tSQL As String
Dim pDialog As New PrintDialog
If cboPrintTo.Text = "Printer" Then
If Not fbCrySelectPrinter(pDialog) Then
MessageBox.Show("Print Report Cancelled.", Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
Exit Sub
End If
End If

Dim objReport As New CrystalDecisions.CrystalReports.Engine.ReportDocument
objReport = objcryCLTherapyPrescriptionReferralForms
tReportName = "Therapy Prescription Referral Form"
' set any passed variables
Dim iII As Integer = 0
For iII = 0 To objReport.DataDefinition.FormulaFields.Count - 1 Step 1
Select Case objReport.DataDefinition.FormulaFields(iII).Name
Case "Ref"
If optReferral.Checked Then
objReport.DataDefinition.FormulaFields(iII).Text = "'X'"
Else
objReport.DataDefinition.FormulaFields(iII).Text = "''"
End If
Case "Treatment"
If optTreatment.Checked Then
objReport.DataDefinition.FormulaFields(iII).Text = "'X'"
Else
objReport.DataDefinition.FormulaFields(iII).Text = "''"
End If
End Select
Next iII
'
'bCreateSchema = True ' ***** TESTING ONLY
Dim bResult As Boolean = False
bResult = fbCryPrintPrinter(tSQL, objReport, tReportName, cboPrintTo, pDialog, bCreateSchema)
'
Me.Cursor = Cursors.Default
If cboPrintTo.Text = "Printer" Then
MessageBox.Show("Print " & tReportName & " Complete.", Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Information)
End If


Public Function fbCryPrintPrinter(tSQL, objReport, tReportName, cboPrintTo, pDialog, bCreateSchema)
objReport.PrintOptions.PrinterName = pDialog.PrinterSettings.PrinterName
objReport.PrintToPrinter(pDialog.PrinterSettings.Copies, False, _
pDialog.PrinterSettings.FromPage, pDialog.PrinterSettings.ToPage)
End Function


This is short hand but this is all of the code that is really related to printing.<pre></pre>
Thank you for your response.
Humble Programmer
GeneralRe: VB.NET Crystal Reports Print Routines W/ Sharp Copiers Pin
Tom Deketelaere28-Oct-08 5:32
professionalTom Deketelaere28-Oct-08 5:32 
GeneralRe: VB.NET Crystal Reports Print Routines W/ Sharp Copiers Pin
programmervb.netc++29-Oct-08 6:59
programmervb.netc++29-Oct-08 6:59 
QuestionCompare string to UTF-8 character set Pin
Rupesh Kumar Swami25-Oct-08 2:19
Rupesh Kumar Swami25-Oct-08 2:19 
AnswerRe: Compare string to UTF-8 character set Pin
Dave Kreskowiak25-Oct-08 4:22
mveDave Kreskowiak25-Oct-08 4:22 
GeneralRe: Compare string to UTF-8 character set Pin
Rupesh Kumar Swami25-Oct-08 6:06
Rupesh Kumar Swami25-Oct-08 6:06 
GeneralRe: Compare string to UTF-8 character set Pin
Dave Kreskowiak25-Oct-08 8:23
mveDave Kreskowiak25-Oct-08 8:23 
AnswerRe: Compare string to UTF-8 character set Pin
Guffa25-Oct-08 16:48
Guffa25-Oct-08 16:48 
GeneralRe: Compare string to UTF-8 character set Pin
Rupesh Kumar Swami25-Oct-08 17:35
Rupesh Kumar Swami25-Oct-08 17:35 
GeneralRe: Compare string to UTF-8 character set Pin
Dave Kreskowiak26-Oct-08 3:41
mveDave Kreskowiak26-Oct-08 3:41 
Questionhas anyone worked how to send text to a HD44780 lcd display using vb ? Pin
ls780h25-Oct-08 1:08
ls780h25-Oct-08 1:08 
AnswerRe: has anyone worked how to send text to a HD44780 lcd display using vb ? Pin
LloydA11125-Oct-08 1:16
LloydA11125-Oct-08 1:16 
Questionoverride the function of Navigation Keys Pin
~Khatri Mitesh~24-Oct-08 22:53
~Khatri Mitesh~24-Oct-08 22:53 
AnswerRe: override the function of Navigation Keys Pin
LloydA11125-Oct-08 0:44
LloydA11125-Oct-08 0:44 
GeneralRe: override the function of Navigation Keys Pin
~Khatri Mitesh~25-Oct-08 2:43
~Khatri Mitesh~25-Oct-08 2:43 
GeneralRe: override the function of Navigation Keys Pin
LloydA11125-Oct-08 2:56
LloydA11125-Oct-08 2:56 
GeneralRe: override the function of Navigation Keys Pin
~Khatri Mitesh~25-Oct-08 3:21
~Khatri Mitesh~25-Oct-08 3:21 
GeneralRe: override the function of Navigation Keys Pin
LloydA11127-Oct-08 10:19
LloydA11127-Oct-08 10:19 

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.