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

时间：2018-02-26 08:42:22

标签： .net

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

Sample form

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

Pre-printed form

1 个答案:

答案 0 :(得分：0)

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

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
相关问题
最新问题