BlogGang.com : : The Fifth - Function ใช้ในการหา Form ID และ วิธีการ Set Print SETUP ของ Crystal Report

Function ใช้ในการหา Form ID และ วิธีการ Set Print SETUP ของ Crystal Report

Dim BNSlip As New ReportDocument
Dim reportPath As String = Application.StartupPath & "\Reports\" & "BillingNote.rpt"
BNSlip.Load(reportPath)

BNSlip.SetDataSource(Me.WholeSalesDataSet)
BNSlip.PrintOptions.PaperSource = PaperSource.Tractor
BNSlip.PrintOptions.PrinterName = "LQ-300"
BNSlip.PrintOptions.PaperSize = CType(getPaperSize("9.5x5.5").RawKind, CrystalDecisions.Shared.PaperSize)

BNSlip.SetParameterValue("BillingNoteNo", Val(Me.BillingNoteNoTextBox.Text))
BNSlip.SetParameterValue("CompanyName", xCompany.CompanyName)

Dim fReportViewer As New frmReportViewer
fReportViewer.CRViewer.ReportSource = BNSlip
fReportViewer.Text = "Billing Note Slip"
fReportViewer.ShowDialog()

Public Function getPaperSize(ByVal sizeName As String) As System.Drawing.Printing.PaperSize

Dim i As Integer = 0

Dim PSize As New System.Drawing.Printing.PaperSize

Dim printDoc As New System.Drawing.Printing.PrintDocument

Dim pd As New System.Drawing.Printing.PrintDocument

For i = 0 To printDoc.PrinterSettings.PaperSizes.Count - 1

If (printDoc.PrinterSettings.PaperSizes(i).PaperName = sizeName) Then

PSize = printDoc.PrinterSettings.PaperSizes(i)

End If

i += 1

Next

Return PSize

End Function

Create Date : 23 พฤษภาคม 2550

Last Update : 23 พฤษภาคม 2550 13:58:01 น.

2 comments

Counter : 706 Pageviews.

printDoc.PrinterSettings.PaperSizes.Count
ที่เครื่องไป setup มัน return ออกมาเป็น 0 พอทราบไหมคะ ว่าเป็นเพราะอะไร

โดย: sa1985 IP: 101.108.3.53 วันที่: 22 กรกฎาคม 2554 เวลา:14:23:05 น.

ลบบรรทัดนี้ออก : i += 1

ใช้ได้เลยครับ

โดย: yung IP: 58.8.93.20 วันที่: 23 สิงหาคม 2554 เวลา:16:30:00 น.