vb.net下打印清单示例（连续纸和固定纸张打印）

最新推荐文章于 2021-09-14 09:01:03 发布

iceou

最新推荐文章于 2021-09-14 09:01:03 发布

阅读量1.1k

点赞数

分类专栏： vb.net 文章标签： vb.net 打印连续纸链式纸

本文链接：https://blog.csdn.net/iceou/article/details/50216215

版权

本文详细介绍了如何使用VB.NET进行清单打印，包括如何设置连续纸和固定纸张的打印，提供了实用的示例代码，帮助开发者实现不同类型的清单打印需求。

摘要由CSDN通过智能技术生成

清单按类别打印

 Private Sub print_doc(ByVal sender As Object, ByVal e As PrintPageEventArgs)


        Dim m_arg As New drawArg(m_printArg.m_title_font, Brushes.Black, New Pen(Color.Blue, 2))
        Dim m_arg1 As New drawArg(m_printArg.m_title1_font, Brushes.Black, New Pen(Color.Blue, 1))
        Dim m_arg2 As New drawArg(m_printArg.m_text_font, Brushes.Black, New Pen(Color.Blue, 1))
        Dim m_arg3 As New drawArg(m_printArg.m_footer_font, Brushes.Black, New Pen(Color.Blue, 1))

        'Dim h As Single = Format(m_arg2.m_font.GetHeight(e.Graphics) + m_printArg.row_height.row3 + 0.005, "0.000")  '设置行高

        Dim t_height As Single = m_arg.m_font.GetHeight(e.Graphics) + m_printArg.row_height.row1
        Dim t_height1 As Single = m_arg1.m_font.GetHeight(e.Graphics) + m_printArg.row_height.row2
        Dim m_height As Single = m_arg2.m_font.GetHeight(e.Graphics) + m_printArg.row_height.row3
        Dim f_height As Single = m_arg3.m_font.GetHeight(e.Graphics) + m_printArg.row_height.row4

        Dim strformat As New StringFormat(StringFormat.GenericDefault)'居中
        strformat.LineAlignment = StringAlignment.Center 
        strformat.Alignment = StringAlignment.Center
        strformat.FormatFlags = StringFormatFlags.NoWrap
        Dim strformatleft As New StringFormat(StringFormat.GenericDefault)
        strformatleft.Alignment = StringAlignment.Near
        strformatleft.LineAlignment = StringAlignment.Center
        strformatleft.FormatFlags = StringFormatFlags.NoWrap
        Dim i As Single = printText(e, "*****医院", m_arg, e.MarginBounds.Left, e.MarginBounds.Top, e.MarginBounds.Width, _
       t_height, strformat, New m_Line_Style(False, False, False, False)) <span style="font-family: Arial, Helvetica, sans-serif;">'</span>i返回行高

        i = printText(e, "病人住院费用一日清单", m_arg, e.MarginBounds.Left, i, e.MarginBounds.Width, _
     t_height, strformat, New m_Line_Style(False, False, False, False))


        Dim t_item(3) As m_item
        t_item(0) = New m_item("病人ID:" & dt(0)(2).ToString, 260 * 0.3937008, _
                               strformatleft, New m_Line_Style(False, False, False, False))
        t_item(1) = New m_item("病人姓名:" & dt(0)(12).ToString, 320 * 0.3937008, _
                              strformat, New m_Line_Style(False, False, False, False))
        t_item(2) = New m_item("性别:" & dt(0)(19).ToString, 200