Question

我有一份报告说我需要在销售完成后打印。

使用PrintForm和PrintDocument组件时，我遇到长度和打印问题，但如果我右键单击并从列表中选择打印，报表将完美打印。

有没有什么方法可以在我的表单加载事件中编写模仿右键单击打印的代码？

我已经在这个项目的这个部分挣扎了好几年了，现在整个事情已经落后于计划。

整个收据表格页面的我的代码是：

Imports System.Data.OleDb
Imports System.IO
Imports System.Drawing.Printing

Public Class Receipt
Public PicLocation As String
Dim Ctrl1, Ctrl2 As Control
Dim CN As New OleDb.OleDbConnection
Dim CMD As New OleDb.OleDbCommand
Dim DataR As OleDb.OleDbDataReader

'To display into datagrid purpose
Dim dataS As New DataSet
Dim dataAd As New OleDb.OleDbDataAdapter
Public SqlStr, SqlStr1, DBPath, DBStatus, SearchBox As String
Dim X, Y, SqlH, Onh As Integer
Dim SqlUser As String
Dim DataP As Decimal
Dim Balance As Integer

Private Sub Receipt_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    'TODO: This line of code loads data into the 'ProductListDataSet' table.
    DBPath = (Application.StartupPath & "\ProductList.accdb")
    If CN.State = ConnectionState.Open Then
        CN.Close()
        DBStatus = ("Not Connected")
    End If
    SqlStr = ("Provider = Microsoft.ACE.OLEDB.12.0;Data Source =" & DBPath)
    CN.ConnectionString = SqlStr
    CN.Open()
    Onh = Nothing

    lblTime.Text = DateAndTime.Now
    lblUser.Text = Login.userTB.Text

    Dim sql As String
    sql = "SELECT * Receipt"
    Me.ReceiptTableAdapter.ClearBeforeFill = True
    Me.ReceiptTableAdapter.Connection = CN
    Me.ReceiptTableAdapter.Connection.CreateCommand.CommandText = sql
    Me.ReceiptTableAdapter.Fill(Me.ProductListDataSet.Receipt)
    Me.ReportViewer1.RefreshReport()
    Me.Refresh()


End Sub

Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click

    With Me.PrintForm1
        .PrintAction = Printing.PrintAction.PrintToPrinter

        Dim MyMargins As New Margins
        With MyMargins
            .Left = 0
            .Right = 0
            .Top = 0
            .Bottom = 0
        End With
        .PrinterSettings.DefaultPageSettings.Margins = MyMargins
        .Print(Me, PowerPacks.Printing.PrintForm.PrintOption.CompatibleModeClientAreaOnly)

    End With

End Sub

End Class

打印代码背后？

0 个答案: