bqdyrep.dsr

用于电子行业打印复杂报表格式和不干胶标签

VERSION 5.00
Begin {82282820-C017-11D0-A87C-00A0C90F29FC} bqdyrep 
   Caption         =   "ActiveReport1"
   ClientHeight    =   8595
   ClientLeft      =   165
   ClientTop       =   450
   ClientWidth     =   11880
   StartUpPosition =   2  '屏幕中心
   _ExtentX        =   20955
   _ExtentY        =   15161
   SectionData     =   "bqdyrep.dsx":0000
End
Attribute VB_Name = "bqdyrep"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim rsTempcar As ADODB.Recordset
Dim abjctmp As String
Dim bq1 As Variant '记录8个标签的最边位置
Dim bkdx As Variant '记录标签边框大小
Dim picheight As Variant '记录

Private Sub setimage() '给image赋值
Dim n, m, i As Integer
Dim rightpos, righttmp, righttmp2 As Variant '记录安标右边位置
 '第二排的shape 往上移了两次  2006.06.06
 '2006.06.05
 For m = 1 To 112
   Me.Detail.Controls("Image" & m).Height = pubabheight * pubabpercent
 Next
 For i = 1 To 8
   bq1 = Me.Detail.Controls("Shape" & i).Left + bkdx
   picleft = Me.Detail.Controls("Shape" & i).Left + piclefttmp
   pictop = Me.Detail.Controls("Shape" & i).Top + pictoptmp
   picleft2 = Me.Detail.Controls("Shape" & i).Left + picleft2tmp
   pictop2 = Me.Detail.Controls("Shape" & i).Top + pictop2tmp
   righttmp = picleft
   righttmp2 = picleft2
   For n = 0 To picnum - 1
      m = n + (i - 1) * 14 + 1
      Call loadpic(picarray(n))
      '2006.06.10 cancel the code
     ' righttmp = righttmp + picwidth + picjj
     righttmp = righttmp + picwidth * pubabpercent + picjj
     If righttmp > bq1 Then
        Me.Detail.Controls("Image" & m).Picture = LoadPicture(abjctmp)
        Me.Detail.Controls("Image" & m).Left = righttmp2
        Me.Detail.Controls("Image" & m).Top = pictop2
        
        '2006.06.05 add the code
        Me.Detail.Controls("Image" & m).Width = picwidth * pubabpercent
        Me.Detail.Controls("Image" & m).Height = picheight * pubabpercent '2006.06.08 add the code
        Me.Detail.Controls("Image" & m).SizeMode = 1
        Me.Detail.Controls("Image" & m).PictureAlignment = 2
        '2006.06.10 cancel the code
       ' righttmp2 = righttmp2 + picwidth + picjj
       righttmp2 = righttmp2 + picwidth * pubabpercent + picjj
      Else
        Me.Detail.Controls("Image" & m).Picture = LoadPicture(abjctmp)
        '2006.06.10 cancel the code
        'Me.Detail.Controls("Image" & m).Left = righttmp - picwidth - picjj
        Me.Detail.Controls("Image" & m).Left = righttmp - picwidth * pubabpercent - picjj
        Me.Detail.Controls("Image" & m).Top = pictop
        
        '2006.06.05 add the code
        Me.Detail.Controls("Image" & m).SizeMode = 1
        Me.Detail.Controls("Image" & m).Width = picwidth * pubabpercent
        Me.Detail.Controls("Image" & m).Height = picheight * pubabpercent '2006.06.08 add the code
        Me.Detail.Controls("Image" & m).PictureAlignment = 2
     End If
  Next
Next
End Sub


Private Sub loadpic(abjcstr As String)
  '调安标
 Dim ajt As String
  abjctmp = ""
  ajt = "无"
  picheight = 0
  Set rsTempcar = New ADODB.Recordset   '初始化数据库
  rsTempcar.CursorType = adOpenKeyset
  rsTempcar.CursorLocation = adUseClient
  rsTempcar.LockType = adLockOptimistic
  rsTempcar.Open "select * from 安标表 where 安标简称='" & ajt & "'", cnSys
  '2006.06.10 cancel the code
 'For n = 0 To 13
 ' If picarray(n) <> "" Then
   If abjcstr <> "" Then '2006.06.10 add the code
      rsTempcar.Close
      rsTempcar.Open "Select * From 安标表 Where 安标简称 = '" & abjcstr & "'", cnSys
      Do While Not rsTempcar.EOF
       abjctmp = pcpath & Trim(rsTempcar("安标路径"))
       picwidth = rsTempcar("安标宽度") * stunit
       picheight = rsTempcar("安标高度") * stunit '2006.06.08 add the code
       rsTempcar.MoveNext
      Loop
  End If
' Next
End Sub
Private Sub setnull()
Dim i As Integer
 
 For i = 1 To 88  '清空数据
   Me.Detail.Controls("Field" & i).Text = ""
 Next
 
 bq1 = 0
 
 For i = 0 To 7
   Me.Detail.Controls("Field" & 1 + i * 10).Text = pubpnstr
   Me.Detail.Controls("Field" & 2 + i * 10).Text = typestr
   Me.Detail.Controls("Field" & 3 + i * 10).Text = ratistr
   Me.Detail.Controls("Field" & 4 + i * 10).Text = breastr
   Me.Detail.Controls("Field" & 5 + i * 10).Text = capastr
   Me.Detail.Controls("Field" & 6 + i * 10).Text = qntystr
   Me.Detail.Controls("Field" & 7 + i * 10).Text = datestr
   Me.Detail.Controls("Field" & 8 + i * 10).Text = lotnstr
   Me.Detail.Controls("Field" & 9 + i * 10).Text = inspstr
   Me.Detail.Controls("Field" & 10 + i * 10).Text = otherstr
 Next
 
 For i = 81 To 88
    Me.Detail.Controls("Field" & i).Text = otherab
 Next
  
End Sub

Private Sub ActiveReport_Initialize()
   bqdyrep.Printer.PaperSize = commpapersize
   If printflag = 1 Then
      bqdyrep.Printer.PrintDialog
   End If
End Sub

Private Sub Detail_AfterPrint()
  printnum = 0
End Sub


Private Sub Detail_Format()
 ' bqdyrep.Printer.SetupDialog
 ' bqdyrep.Printer.Orientation = ddOPortrait  ' ddOPortrait  ddOLandscape 设置横向、纵向End Sub
 '  Printer.Copies = printnum
 Dim i As Integer
  
 bkdx = 48 * stunit '标签边框的长度
  Call setnull
  If prnflag = "打印" Then
    Call setimage    '给image赋值
  End If
End Sub