DrawString动态填写图片单据

Imports System.Drawing
Imports System.Drawing.Imaging

 '生成银行电汇单据
    Private Sub CreateBankBill()
        Dim imgBill As System.Drawing.Image
        Dim imgPath As String = Server.MapPath("../images/PayeeBank.jpg")
        imgBill = Image.FromFile(imgPath)

        Dim fontR As New Font("Courier New", 8)
        Dim fontW As New Font("Verdana", 8)
        Dim colorR As System.Drawing.Color = Color.Red
        Dim colorW As System.Drawing.Color = Color.Black

        Dim IER As Double = 28.35 '[Cm] * IER ≈ [Pixel]
        Dim yDEC As Double = 0.5 '文字行间距(含字高cm)
        Dim strReceiverFullName As String = "南京易点网络软件有限公司"  '右上-收款人全称
        Dim pFullName As System.Drawing.PointF = New PointF(IER * 10.4, IER * 2) 'p(x[28.35*10.4],y[28.35*2])
        Dim strReceiverAccountsOrAddr As String = "123456789" '右上-收款人帐号或地址
        Dim pAccoAddr As System.Drawing.PointF = New PointF(IER * 10.4, IER * 2.8)
        Dim strProvince As String = "江苏" '右-收款人省份
        Dim pProvince As System.Drawing.PointF = New PointF(IER * 10.4, IER * 4.3)
        Dim strCity As String = "南京" '右-收款人城市
        Dim pCity As System.Drawing.PointF = New PointF(IER * 11.8, IER * 4.3)

        Dim strBank As String = "华夏银行白下支行银联" '右-汇入行名称
        'Dim pBank As System.Drawing.PointF = New PointF(IER * 14.4, IER * 3.8)       
        Dim RowCount As Integer = Math.Ceiling(strBank.Length / 4)
        RowCount = RowCount - 1
        Dim arrBank(,)
        ReDim arrBank(RowCount, 1)
        Dim i As Integer
        For i = 0 To UBound(arrBank, 1)
            Dim str As String
            If i < UBound(arrBank, 1) Then
                str = strBank.Substring(i * 4, 4)
            Else
                str = strBank.Substring(i * 4)
            End If
            Dim p As System.Drawing.PointF = New PointF(IER * 14.4, IER * (3.8 + i * yDEC))
            arrBank(i, 0) = str
            arrBank(i, 1) = p
        Next

        Dim arr(,) As String = {{"用 户 名", "BlueKnight"}, {"产品类型", "EasySales"}, {"购买期限", "3个月"}, {"联系电话", "025-12349484"}}

        Dim arrPurpose(,)
        ReDim arrPurpose(UBound(arr, 1), 3)
        For i = 0 To UBound(arrPurpose, 1)
            arrPurpose(i, 0) = CStr(i + 1) & "、" & CStr(arr(i, 0))
            arrPurpose(i, 1) = New PointF(IER * 3.8, IER * (7 + i * yDEC))
            arrPurpose(i, 2) = arr(i, 1)
            arrPurpose(i, 3) = New PointF(IER * 6.4, IER * (7 + i * yDEC))
        Next


        Dim b As Bitmap = New Bitmap(imgBill.Width, imgBill.Height, PixelFormat.Format24bppRgb)
        Dim g As Graphics = Graphics.FromImage(b)
        g.Clear(Color.White)
        ' FONT-FAMILY: Verdana, Webdings

        g.DrawImage(imgBill, New Point(0, 0))
        g.DrawString(strReceiverFullName, fontR, New SolidBrush(colorR), pFullName)
        g.DrawString(strReceiverAccountsOrAddr, fontR, New SolidBrush(colorR), pAccoAddr)
        g.DrawString(strProvince, fontR, New SolidBrush(colorR), pProvince)
        g.DrawString(strCity, fontR, New SolidBrush(colorR), pCity)

        For i = 0 To UBound(arrBank, 1)
            g.DrawString(CType(arrBank(i, 0), String), fontR, New SolidBrush(colorR), CType(arrBank(i, 1), PointF))
        Next
        For i = 0 To UBound(arrPurpose, 1)
            g.DrawString(CStr(arrPurpose(i, 0)), fontR, New SolidBrush(colorR), CType(arrPurpose(i, 1), PointF))
            g.DrawString(CStr(arrPurpose(i, 2)), fontW, New SolidBrush(colorW), CType(arrPurpose(i, 3), PointF))
        Next


        Response.ContentType = "image/jpeg"
        b.Save(Response.OutputStream, System.Drawing.Imaging.ImageFormat.Jpeg)
        b.Dispose()
    End Sub


    '生成邮政汇款单
    Private Sub CreatePostBill()
        Dim imgBill As System.Drawing.Image
        Dim imgPath As String = Server.MapPath("../images/PayeePost.jpg")
        imgBill = Image.FromFile(imgPath)

        Dim fontW As New Font("Courier New", 8)
        Dim colorW As System.Drawing.Color = Color.Black

        Dim IER As Double = 28.35 '[Cm] * IER ≈ [Pixel]
        Dim xDEC As Double = 0.72 '文字列间距(含字宽cm)
        Dim yDEC As Double = 0.5 '文字行间距(含字高cm)
        Dim yDEC2 As Double = 0.85 '附言文字行间距(含字高cm)
        Dim strPostCode As String = "210005"    '//邮编
        Dim arrPostCode(,)
        ReDim arrPostCode(strPostCode.Length - 1, 1)
        Dim i As Integer
        For i = 0 To strPostCode.Length - 1
            arrPostCode(i, 0) = strPostCode.Chars(i)
            arrPostCode(i, 1) = New System.Drawing.PointF((1.84 + i * xDEC) * IER, 1.14 * IER)
        Next
        Dim strName As String = "南京易点网络软件有限公司" '//收款人姓名
        Dim RowCount As Integer = Math.Ceiling(strName.Length / 7)
        RowCount = RowCount - 1
        Dim arrName(,)
        ReDim arrName(RowCount, 1)
        For i = 0 To UBound(arrName, 1)
            Dim str As String
            If i < UBound(arrName, 1) Then
                str = strName.Substring(i * 7, 7)
            Else
                str = strName.Substring(i * 7)
            End If
            Dim p As System.Drawing.PointF = New PointF(3.3 * IER, (3.8 - i * yDEC) * IER)
            arrName(i, 0) = str
            arrName(UBound(arrName, 1) - i, 1) = p
        Next
        Dim strAddr As String = "江苏省南京市白下区新街口华联商厦14楼1411室" '//收款人地址
        Dim pAddr As System.Drawing.PointF = New PointF(4.6 * IER, 4.6 * IER)

        Dim arrPostScript As New ArrayList           '//附言
        arrPostScript.Add("★ 请务必在附言栏中详细填写以下内容")
        arrPostScript.Add("用 户 名" & ControlChars.Tab & "BlueKnight")
        arrPostScript.Add("产品类型" & ControlChars.Tab & "EasyInsurance")
        arrPostScript.Add("购买期限" & ControlChars.Tab & "3个月")
        arrPostScript.Add("您的联系电话" & ControlChars.Tab & "13855512065")
        Dim arrPS(,)
        ReDim arrPS(arrPostScript.Count - 1, 1)
        For i = 0 To UBound(arrPS, 1)
            arrPS(i, 0) = IIf(i > 0, CStr(i) & "、", "") & CStr(arrPostScript.Item(i))
            arrPS(i, 1) = New PointF(IER * 3, IER * (19.6 + i * yDEC2))
        Next


        Dim b As Bitmap = New Bitmap(imgBill.Width, imgBill.Height, PixelFormat.Format24bppRgb)
        Dim g As Graphics = Graphics.FromImage(b)
        g.Clear(Color.White)

        g.DrawImage(imgBill, New Point(0, 0))
        'g.DrawString(str, fontStr, New SolidBrush(colorStr), p)
        For i = 0 To UBound(arrPostCode, 1)
            g.DrawString(CStr(arrPostCode(i, 0)), fontW, New SolidBrush(colorW), CType(arrPostCode(i, 1), PointF))
        Next
        For i = 0 To UBound(arrName, 1)
            g.DrawString(CStr(arrName(i, 0)), fontW, New SolidBrush(colorW), CType(arrName(i, 1), PointF))
        Next
        g.DrawString(strAddr, fontW, New SolidBrush(colorW), pAddr)
        For i = 0 To UBound(arrPS, 1)
            g.DrawString(CStr(arrPS(i, 0)), fontW, New SolidBrush(colorW), CType(arrPS(i, 1), PointF))
        Next

        Response.ContentType = "image/jpeg"
        b.Save(Response.OutputStream, System.Drawing.Imaging.ImageFormat.Jpeg)
        b.Dispose()
    End Sub