请教----vb.net....PrintDocument 打印自定义纸张发票

zhao8954 2010-05-25 11:39:39

我想打印几种运单发票，但格式都不是标准尺寸。能否用PrintDocument 实现发票的自定义打印？

1.制作思路？

2.PrintDocument 打印的代码

3.针式打印机，该如何设置》？？

小弟先谢过了，希望大家帮忙

...全文

398 6 打赏收藏转发到动态举报

写回复

用AI写文章

6 条回复

切换为时间正序

请发表友善的回复…

发表回复

blues_zhao_yang 2010-05-26

打赏
举报

例子：将窗体上的TextBox在纸张相应的位置上打印出来



Imports System.Drawing.Printing



Public Class Form1



    Private WithEvents PrintTextBox As New PrintDocument



    Private Sub Print_Page(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintTextBox.PrintPage

        '以窗体和默认A4纸的比例以及TextBox1在窗体上的相对位置来计算打印坐标

        Dim X, Y As Integer

        X = PrintTextBox.DefaultPageSettings.Bounds.Width / Me.Width * TextBox1.Left

        Y = PrintTextBox.DefaultPageSettings.Bounds.Height / Me.Height * TextBox1.Top

        '打印字符串

        e.Graphics.DrawString(TextBox1.Text, TextBox1.Font, Brushes.Black, X, Y)

    End Sub



    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        '预览

        Dim PPD As New PrintPreviewDialog

        PPD.Document = PrintTextBox

        PPD.ShowDialog()

    End Sub



    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        '打印

        Dim PD As New PrintDialog

        PD.Document = PrintTextBox

        PD.ShowDialog()

    End Sub

End Class