在 .net 中的预印表格上打印

debugcn 发表于 Dev

利奥·埃尔文·李

愉快的一天！。我正在尝试找出如何在预印表格上进行打印。

上图显示了我想在我的预印表格上打印的数据，股票取款清单我是 .net 的新手，我需要知道从哪里开始，下面是我的预印表格，任何建议或关于我应该使用什么的提示将不胜感激。

利奥·埃尔文·李

好的，我找到了解决方案，但很难，但我得到了我想要的

Dim font1 As New Font("Arial", 8, FontStyle.Bold)
        Dim ctrl As Integer = 0
        Dim nextline As Integer = 0

        Do
            e.Graphics.DrawString(lbl_request_number.Text, New Font("Arial", 10, FontStyle.Bold), Brushes.Black, 530, 182)
            e.Graphics.DrawString(txt_div.Text, New Font("Arial", 10, FontStyle.Bold), Brushes.Black, 110, 162)
            e.Graphics.DrawString(txt_purpose.Text, New Font("Arial", 10, FontStyle.Bold), Brushes.Black, 101, 457)


            e.Graphics.DrawString(txt_requested_by.Text, New Font("Arial", 7, FontStyle.Bold), Brushes.Black, 134, 535)
            e.Graphics.DrawString(txt_requested_by.Text, New Font("Arial", 7, FontStyle.Bold), Brushes.Black, 134, 555)
            e.Graphics.DrawString(Mainform.txt_date_now.Text, New Font("Arial", 7, FontStyle.Bold), Brushes.Black, 134, 575)


            e.Graphics.DrawString(txt_ra.Text, New Font("Arial", 7, FontStyle.Bold), Brushes.Black, 240, 535)
            e.Graphics.DrawString(txt_ra_pos.Text, New Font("Arial", 7, FontStyle.Bold), Brushes.Black, 240, 555)


            e.Graphics.DrawString(txt_gm_name.Text, New Font("Arial", 7, FontStyle.Bold), Brushes.Black, 380, 535)
            e.Graphics.DrawString(txt_gm_position.Text, New Font("Arial", 7, FontStyle.Bold), Brushes.Black, 380, 555)


            e.Graphics.DrawString(Mainform.txt_uname.Text, New Font("Arial", 7, FontStyle.Bold), Brushes.Black, 550, 535)
            e.Graphics.DrawString(Mainform.txt_designation.Text, New Font("Arial", 7, FontStyle.Bold), Brushes.Black, 550, 555)


            e.Graphics.DrawString(txt_requested_by.Text, New Font("Arial", 7, FontStyle.Bold), Brushes.Black, 670, 535)
            e.Graphics.DrawString(txt_requested_by.Text, New Font("Arial", 7, FontStyle.Bold), Brushes.Black, 670, 555)


            e.Graphics.DrawString(lv_m_requestioned.Items(ctrl).SubItems(0).Text, font1, Brushes.Black, 62, 254 + nextline)
            e.Graphics.DrawString(lv_m_requestioned.Items(ctrl).SubItems(1).Text, font1, Brushes.Black, 195, 254 + nextline)
            e.Graphics.DrawString(lv_m_requestioned.Items(ctrl).SubItems(2).Text, font1, Brushes.Black, 370, 254 + nextline)
            e.Graphics.DrawString(lv_m_requestioned.Items(ctrl).SubItems(3).Text, font1, Brushes.Black, 110, 254 + nextline)
            e.Graphics.DrawString(lv_m_requestioned.Items(ctrl).SubItems(4).Text, font1, Brushes.Black, 140, 254 + nextline)
            nextline = nextline + 20
            ctrl = ctrl + 1
        Loop Until ctrl = lv_m_requestioned.Items.Count

本文收集自互联网，转载请注明来源。

如有侵权，请联系[email protected] 删除。