以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]条码打印  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=179136)

--  作者:江南小镇
--  发布时间:2022/8/9 21:27:00
--  [求助]条码打印
老师,在下面代码里怎样增加控制图片大小的代码。谢谢老师。


If e.Book.TempLate = "模板" Then
    If e.region = "条码管理" Then
        If e.DataRow Is Nothing OrElse e.DataRow.IsNull("条码一") Then \'如果是空行或者Lot列为空
            Dim img As New System.Drawing.Bitmap(1,1) \'生成一个空白图片
            img.Save(ProjectPath & "Images\\BarCode.gif")
        Else \'否则生成条形码图片
            Dim Bar As New BarCodeBuilder
Dim ra As New prt.RenderArea
            Bar.Symbology = Barpro.Symbology.Ean13
            Bar.Code = e.DataRow("条码一")        
            Bar.BarRatio = 0.3    
            Bar.BarHeight = 8
            bar.SaveImage(ProjectPath & "Images\\BarCode.gif",300)
        End If

--  作者:有点蓝
--  发布时间:2022/8/9 21:46:00
--  
到标记里控制http://www.foxtable.com/webhelp/topics/1387.htm
--  作者:江南小镇
--  发布时间:2022/8/9 22:57:00
--  
老师,图片在单元格中居中怎样设置。
--  作者:有点蓝
--  发布时间:2022/8/9 22:59:00
--  
execl模板里没有办法设置居中