Question

我正在开发一个项目，我必须在购买时打印账单。

我有一个特殊的标题垫，所有的账单，这就是为什么，我怎么能这样做.... 那一直......它保持....... 我有一张发单的表格......... 我不知道如何打印......

我如何获取数据并使用哪个对话框我可以（打印）它........

我正在使用vs2010 ...... 我怎么办...........

Answer 1

 PrintDialog printDialog1 = new PrintDialog()
 printDialog1.Document = printDocument1;
 DialogResult result = printDialog1.ShowDialog(this);
 if (result == DialogResult.OK)
 {
    printDocument1.Print();
 }

Answer 2

Public Class Form1
    Private WithEvents pd As Printing.PrintDocument
    ' storage for form image
    Dim formImage As Bitmap
    ' create API prototype
    Private Declare Function BitBlt Lib "gdi32.dll" Alias _
       "BitBlt" (ByVal hdcDest As IntPtr, _
       ByVal nXDest As Integer, ByVal nYDest As _
       Integer, ByVal nWidth As Integer, _
       ByVal nHeight As Integer, ByVal _
       hdcSrc As IntPtr, ByVal nXSrc As Integer, _
       ByVal nYSrc As Integer, _
       ByVal dwRop As System.Int32) As Long
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        pd = New Printing.PrintDocument
        Me.StartPosition = FormStartPosition.CenterScreen

    End Sub
    Private Sub pd_PrintPage(ByVal sender As Object, _
     ByVal e As System.Drawing.Printing.PrintPageEventArgs) _
     Handles pd.PrintPage
        e.Graphics.DrawImage(formImage, 100, 100)
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        GetFormImage()
        pd.Print()
    End Sub
    Private Sub GetFormImage()
        Dim g As Graphics = Me.CreateGraphics()
        Dim s As Size = Me.Size
        formImage = New Bitmap(s.Width, s.Height, g)
        Dim mg As Graphics = Graphics.FromImage(formImage)
        Dim dc1 As IntPtr = g.GetHdc
        Dim dc2 As IntPtr = mg.GetHdc
        ' added code to compute and capture the form
        ' title bar and borders
        Dim widthDiff As Integer = _
           (Me.Width - Me.ClientRectangle.Width)
        Dim heightDiff As Integer = _
           (Me.Height - Me.ClientRectangle.Height)
        Dim borderSize As Integer = widthDiff \ 2
        Dim heightTitleBar As Integer = heightDiff - borderSize
        BitBlt(dc2, 0, 0, _
           Me.ClientRectangle.Width + widthDiff, _
           Me.ClientRectangle.Height + heightDiff, dc1, _
           0 - borderSize, 0 - heightTitleBar, 13369376)

        g.ReleaseHdc(dc1)
        mg.ReleaseHdc(dc2)
    End Sub

End Class

如何使用打印对话框打印文档？

2 个答案: