Direct print particular record

Question

0.00/5 (No votes)

See more:

I want to print directly without viewing and with particular record
This line show all record

RptObject.PrintToPrinter(1, false, 0, 0)

What I have tried:

'RPTfrmCashReport.CrystalReportViewer1.ReportSource = InvoicePrint

RptObject.PrintToPrinter(1, false, 0, 0)
CrystalReportViewer1.SelectionFormula = "{Invoice_Master.Invoice_no} = '" & LblInvoiceno.Text & "'"

Posted 4-Jan-20 17:07pm

Computechsoft

Updated 4-Jan-20 21:19pm

v3

Add a Solution

Comments

Christian Graus 5-Jan-20 1:59am

I can't make sense of this question. What is RptObject? What technologies are you using and should have tagged in your question? What happens when you try this code? What issues are you facing?

Computechsoft 5-Jan-20 2:32am

sorry some typing mistake
I want to send Direct print on printer without viewing i am using this line "PrintToPrinter" but this line show all records how to define particular record in this line just like "Selection formula"
CrystalReportViewer1.ReportSource = InvoicePrint

InvoicePrint.PrintToPrinter(1, false, 0, 0)
CrystalReportViewer1.SelectionFormula = "{Invoice_Master.Invoice_no} = '" & LblInvoiceno.Text & "'"

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Wendelius · Accepted Answer · 2020-01-04T20:35:00

Solution 1

Try also using the CrystalReportViewer.ViewTimeSelectionFormula Property[^]

Posted 4-Jan-20 20:35pm

Wendelius

Comments

Computechsoft 5-Jan-20 2:48am

Yes i am using CrystalReportViewer. My selection formula is work fine no problem in this. When i sending report direct on printer therefore i am using this line

InvoicePrint.PrintToPrinter(1, false, 0, 0)

This line show all records how to set particular record in this line just like selection formula under below line.

CrystalReportViewer1.SelectionFormula = "{Invoice_Master.Invoice_no} = '" & LblInvoiceno.Text & "'"

Wendelius 5-Jan-20 3:10am

Not sure if I understand the situation correctly. Are you saying that filtering works correctly with print preview but does not work when printing directly?

If this is the case, at least one problem in your code example is that you first print and the filter is set after that. This should be vice versa.

Also as said in my original answer, if you haven't yet tried the ViewTimeSelectionFormula property, please do. It behaves differently than the SelectionFormula property.

If these do not help, a completely different approach could be to restrict the data in the data sourced. For example if the InvoicePrint is a data table, you could use a DataView to filter the data to contain only relevant records and pass the data from the view to the report. This approach might be easier than controlling the filters inside a report

Computechsoft 5-Jan-20 3:27am

Yes i am saying? that filtering works correctly with print preview but does not work when printing directly?

Yes i have applied ViewTimeSelectionFormula but report showing not print directly
so please resolve this issue without preview direct send to printer.

Dim mySelectionFormula As String = "{Invoice_Master.Invoice_no} = '" & LblInvoiceno.Text & "'" CrystalReportViewer1.ViewTimeSelectionFormula = mySelectionFormula

Wendelius 5-Jan-20 4:07am

You haven't posted the complete code you're using, but I take it that you're using ReportDocument directly? If this is correct, you should set ReportDocument.RecordSelectionFormula Property[^]

If this isn't correct, please post all relevant codes you use for printing.

Computechsoft 5-Jan-20 4:18am

Dim ConnectionInfo As ConnectionInfo = New ConnectionInfo()
Dim CashReceipt As New ReportDocument()
CashReceipt.Load(Application.StartupPath & "\Reports\Sale Reports\CashReceipt.rpt")
Dim MyTables As Tables = CashReceipt.Database.Tables

For Each MyTable As CrystalDecisions.CrystalReports.Engine.Table In MyTables
Dim MyTableLogonInfo As TableLogOnInfo = MyTable.LogOnInfo
ConnectionInfo.ServerName = ".\SQLEXPRESS"
ConnectionInfo.DatabaseName = ""Admin
ConnectionInfo.UserID = "sa"
ConnectionInfo.Password = "admin"
ConnectionInfo.IntegratedSecurity = False
MyTableLogonInfo.ConnectionInfo = ConnectionInfo
MyTable.ApplyLogOnInfo(MyTableLogonInfo)
Next

RPTfrmCashReport.CrystalReportViewer1.ReportSource = CashReceipt

CashReceipt.PrintToPrinter(1, False, 0, 0)

Dim mySelectionFormula As String = "{Invoice_Master.Invoice_no} = '" & FrmSalebill.LblInvoiceno.Text & "'"
RPTfrmCashReport.CrystalReportViewer1.ViewTimeSelectionFormula = mySelectionFormula

Wendelius 5-Jan-20 4:31am

As said, if you're using the ReportDocument for printing without ReportViewer you need to set RecordSelectionFormula. So try sumething like

...
   MyTable.ApplyLogOnInfo(MyTableLogonInfo)
Next

Dim mySelectionFormula As String = "{Invoice_Master.Invoice_no} = '" & FrmSalebill.LblInvoiceno.Text & "'"

CashReceipt.RecordSelectionFormula = mySelectionFormula
CashReceipt.PrintToPrinter(1, False, 0, 0)
...

Computechsoft 5-Jan-20 4:44am

Its ok print directly going on printer but Microsoft default printer (OneNote) is opening. But my Receipt is (POS) Print.

Wendelius 5-Jan-20 4:49am

This is a completely different question.

But yes, default printer is used unless you specify some other printer. See documentation in ReportDocument.PrintToPrinter Method (CrystalDecisions.CrystalReports.Engine) | Microsoft Docs[^]

Quote:
Prints the specified pages of the report to the printer selected using the PrintOptions.PrinterName property. If no printer is selected, the default printer specified in the report will be used.

Computechsoft 5-Jan-20 9:43am

I have applied this but print is going on printer but "OneNote" is opening
I don't want to open "OneNot".
Directly print on printer lots of adds coming between printing. Just like POS printing.

Wendelius 5-Jan-20 11:25am

As said, changing the printer is a different question so I suggested opening another post. Remember to include all relevant code in your question.

Computechsoft 5-Jan-20 12:12pm

I am Create another post.