comm6hpart.dsr

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

VERSION 5.00
Begin {82282820-C017-11D0-A87C-00A0C90F29FC} comm6hpart 
   Caption         =   "ActiveReport1"
   ClientHeight    =   5895
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   11595
   StartUpPosition =   2  '屏幕中心
   _ExtentX        =   20452
   _ExtentY        =   10398
   SectionData     =   "comm6hpart.dsx":0000
End
Attribute VB_Name = "comm6hpart"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub ActiveReport_Initialize()
  comm6hpart.Printer.PaperSize = bgjpapersize
  If bq6hprintflag = 1 Then
    comm6hpart.Printer.PrintDialog
  End If
End Sub

Private Sub ActiveReport_ReportStart()
 ' printdevice = 0
 'MsgBox vFldVal(comm6h.Printer.PaperSizes), 0 + 16, "提示窗"
   'comm6h.Printer.PaperSizes
  'comm6h.Printer.PaperSize = 2
 ' Printer.PaperWidth = 106 * stunit  '纸张高
 ' Printer.PaperHeight = 51 * stunit   '纸张宽
 ' comm6hpart.Printer.PaperSize = bgjpapersize
  If bq6habnum >= 4 Then
     Field3.Left = 0
     Field3.Width = 2800
     Field8.Left = 3075
     Field8.Width = 2800
    Else
     Field3.Left = 1080
     Field3.Width = 1710
     Field8.Left = 4155
     Field8.Width = 1710
  End If
'2006.06.28 add the code
 If bq6habnum >= 6 Then
   For i = 1 To 12
     Me.Detail.Controls("field" & i).Font.Size = 9
     Me.Detail.Controls("field" & i).VerticalAlignment = ddTXMiddle   '2006.06.15 add the code
   Next
   Label2.Font.Size = 9: Label6.Font.Size = 9: Label7.Font.Size = 9: Label8.Font.Size = 9
   Label9.Font.Size = 9: Label10.Font.Size = 9
 End If
End Sub

Private Sub Detail_AfterPrint()
  bq6hprint = 0
End Sub

Private Sub setjpnull()
Dim i As Integer
 For i = 1 To 12  '清空数据
   Me.Detail.Controls("Field" & i).Text = ""
 Next

 For i = 0 To 1
 '2006.06.02 modify the code
   If bq6hcc <> "" Then
      Me.Detail.Controls("Field" & 1 + i * 5).Text = bq6htype & "  " & bq6hcc & "  " & "FUSE"
     Else
      Me.Detail.Controls("Field" & 1 + i * 5).Text = bq6htype
   End If
   Me.Detail.Controls("Field" & 2 + i * 5).Text = bq6hratings
   Me.Detail.Controls("Field" & 3 + i * 5).Text = bq6hab
   Me.Detail.Controls("Field" & 4 + i * 5).Text = bq6hqty
   Me.Detail.Controls("Field" & 5 + i * 5).Text = bq6hother
 Next
 Field11.Text = bq6hpn: Field12.Text = bq6hpn
End Sub

Private Sub Detail_Format()
   Call setjpnull
End Sub