清单按类别打印
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