以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助] excel 报表中怎么设置数量  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=73755)
--  作者：wangyinming
--  发布时间：2015/8/25 22:34:00
--  [求助] excel 报表中怎么设置数量
我想在A4大小的纸上，生成4个100*100的报表，但是不会做。

在细节区<表A，4>只能竖的，我想横的有2张，请老师指点
--  作者：大红袍
--  发布时间：2015/8/25 22:35:00
--  

 参考

 

http://www.foxtable.com/help/topics/1414.htm

 
--  作者：wangyinming
--  发布时间：2015/8/25 22:42:00
--  
请问图片，怎么设置 
[&&剧毒.png, 1, 0,135,130]

[&&BarCode.gif, 2, 13,88,88]
--  作者：大红袍
--  发布时间：2015/8/25 22:45:00
--  

参考例子

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=71330&replyID=491100&skin=1

 
--  作者：wangyinming
--  发布时间：2015/8/25 22:52:00
--  
打开不了开发者文件，模板中是[&&BarCode.gif, 2, 13,88,88]，BarCode0，BarCode1，BarCode2
但是我的生成方法是
报表事件BuildDetail做的，编码BarCode0，BarCode1，BarCode2，没有效果
If e.Book.TempLate = "危废标签" Then
    If e.Region = "表A" 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
            Bar.Symbology = Barpro.Symbology.QRCode
            
            Bar.Code = e.DataRow("编号")
            Bar.Text = e.DataRow("编号")
            Bar.TextAlignment = Barpro.Alignment.BelowCenter
            Bar.QuietZoneWidth = 1
            Bar.QRCodeModuleSize = 1
            Bar.SaveImage(ProjectPath & "Images\\BarCode.gif")
        End If
    End If
End If
--  作者：大红袍
--  发布时间：2015/8/25 23:05:00
--  
static idx As Integer
static drs As List(Of DataRow)
If e.Book.TempLate = "工序排配计划表" Then
    If e.region = "工序计划表" Then
        If e.DataRow IsNot Nothing Then
            For i As Integer = idx To idx + 9
                If i < drs.Count
                    Dim Bar As New BarCodeBuilder
                    Bar.Symbology = Barpro.Symbology.Code39
                    Bar.Code = drs(i)("工序ID")
                    Bar.BarRatio = 0.3
                    Bar.BarHeight = 8
                    Bar.Rotate = Barpro.Rotate.Degree270
                    Bar.AddCheckSum = False
                    bar.SaveImage(ProjectPath & "Images\\BarCode" & i-idx & ".gif",300)
                Else
                    Dim bit As new bitmap(1,1)
                    bit.Save(ProjectPath & "Images\\BarCode" & i-idx & ".gif")
                End If
            Next
            idx += 10
        End If
    End If
End If