⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 frm_材料消耗.frm

📁 小型企业进销存源代码 一款小型企业进销存源代码
💻 FRM
📖 第 1 页 / 共 5 页
字号:
🔍
12345 
          k = 0
          End If
         'For J = 0 To DBGrid1.Columns.Count - 1
          PrintString = DBGrid1.Columns(1).CellText(DBGrid1.RowBookmark(k))
         'Next
         'Printer.Print PrintString
          .CurrentX = lngLM * 2.4
          .CurrentY = lngTM * (4.95 + k / 2.5)
          Dest.Print PrintString
          PrintString = ""
          k = k + 1
          DoEvents
          Next

'第三列内容
          For i1 = 0 To Data1.Recordset.RecordCount - 1
          If k = DBGrid1.VisibleRows Then
          DBGrid1.Scroll 0, DBGrid1.VisibleRows
          k = 0
          End If
         'For J = 0 To DBGrid1.Columns.Count - 1
          PrintString = DBGrid1.Columns(2).CellText(DBGrid1.RowBookmark(k))
         'Next
         'Printer.Print PrintString
          .CurrentX = lngLM * 4.5
          .CurrentY = lngTM * (4.95 + k / 2.5)
          Dest.Print PrintString
          PrintString = ""
          k = k + 1
          DoEvents
          Next
               
'第四列内容
          For i1 = 0 To Data1.Recordset.RecordCount - 1
          If k = DBGrid1.VisibleRows Then
          DBGrid1.Scroll 0, DBGrid1.VisibleRows
          k = 0
          End If
         'For J = 0 To DBGrid1.Columns.Count - 1
          PrintString = DBGrid1.Columns(3).CellText(DBGrid1.RowBookmark(k))
         'Next
         'Printer.Print PrintString
          .CurrentX = lngLM * 7.05
          .CurrentY = lngTM * (4.95 + k / 2.5)
          Dest.Print PrintString
          PrintString = ""
          k = k + 1
          DoEvents
          Next
          
'第五列内容
          For i1 = 0 To Data1.Recordset.RecordCount - 1
          If k = DBGrid1.VisibleRows Then
          DBGrid1.Scroll 0, DBGrid1.VisibleRows
          k = 0
          End If
         'For J = 0 To DBGrid1.Columns.Count - 1
          PrintString = DBGrid1.Columns(4).CellText(DBGrid1.RowBookmark(k))
         'Next
         'Printer.Print PrintString
          .CurrentX = lngLM * 8.6
          .CurrentY = lngTM * (4.95 + k / 2.5)
          Dest.Print PrintString
          PrintString = ""
          k = k + 1
          DoEvents
          Next
          
'第一行内容
          .CurrentX = lngLM * 2.35
          .CurrentY = lngTM * 2
          Dest.Print Text22.Text

          .CurrentX = lngLM * 2.9
          .CurrentY = lngTM * 2.75
          Dest.Print Text22.Text
          .CurrentX = lngLM * 9
          .CurrentY = lngTM * 2.75
          Dest.Print "NJZG/QR7.5-2-2"
               
'第2行内容
          .CurrentX = lngLM * 3.1
          .CurrentY = lngTM * 3.15
          Dest.Print Text2.Text

'第3行内容
          .CurrentX = lngLM * 3.5
          .CurrentY = lngTM * 3.55
          Dest.Print Text1.Text
          .CurrentX = lngLM * 9
          .CurrentY = lngTM * 3.55
          Dest.Print Text9.Text
          
          
            .Font.Name = "标楷体"
               .Font.Size = 12
             .CurrentX = lngLM + lngSW / 1.2 - .TextWidth("第 1 页")
             .CurrentY = lngTM + lngSH / 1.1 - .TextHeight("第 1 页")
               Dest.Print "第 " & Text25.Text & " 页"
End If



If SSTab1.Tab = 1 Then
'最后列内容
          For i1 = 0 To Data2.Recordset.RecordCount - 1
          If k = DBGrid2.VisibleRows Then
          DBGrid2.Scroll 0, DBGrid2.VisibleRows
          k = 0
          End If
         'For J = 0 To DBGrid2.Columns.Count - 1
          PrintString = DBGrid2.Columns(DBGrid2.Columns.count - 1).CellText(DBGrid2.RowBookmark(k))
         'Next
         'Printer.Print PrintString
          .CurrentX = lngLM * 10.3
          .CurrentY = lngTM * (4.95 + k / 2.5)
          Dest.Print PrintString
          PrintString = ""
          k = k + 1
          DoEvents
          Next

'第一列内容
          For i1 = 0 To Data2.Recordset.RecordCount - 1
          If k = DBGrid2.VisibleRows Then
          DBGrid2.Scroll 0, DBGrid2.VisibleRows
          k = 0
          End If
         'For J = 0 To DBGrid2.Columns.Count - 1
          PrintString = DBGrid2.Columns(0).CellText(DBGrid2.RowBookmark(k))
         'Next
         'Printer.Print PrintString
          .CurrentX = lngLM * 1.5
          .CurrentY = lngTM * (4.95 + k / 2.5)
          Dest.Print PrintString
          PrintString = ""
          k = k + 1
          DoEvents
          Next
          
'第二列内容
          For i1 = 0 To Data2.Recordset.RecordCount - 1
          If k = DBGrid2.VisibleRows Then
          DBGrid2.Scroll 0, DBGrid2.VisibleRows
          k = 0
          End If
         'For J = 0 To DBGrid2.Columns.Count - 1
          PrintString = DBGrid2.Columns(1).CellText(DBGrid2.RowBookmark(k))
         'Next
         'Printer.Print PrintString
          .CurrentX = lngLM * 2.4
          .CurrentY = lngTM * (4.95 + k / 2.5)
          Dest.Print PrintString
          PrintString = ""
          k = k + 1
          DoEvents
          Next

'第三列内容
          For i1 = 0 To Data2.Recordset.RecordCount - 1
          If k = DBGrid2.VisibleRows Then
          DBGrid2.Scroll 0, DBGrid2.VisibleRows
          k = 0
          End If
         'For J = 0 To DBGrid2.Columns.Count - 1
          PrintString = DBGrid2.Columns(2).CellText(DBGrid2.RowBookmark(k))
         'Next
         'Printer.Print PrintString
          .CurrentX = lngLM * 4.5
          .CurrentY = lngTM * (4.95 + k / 2.5)
          Dest.Print PrintString
          PrintString = ""
          k = k + 1
          DoEvents
          Next
               
'第四列内容
          For i1 = 0 To Data2.Recordset.RecordCount - 1
          If k = DBGrid2.VisibleRows Then
          DBGrid2.Scroll 0, DBGrid2.VisibleRows
          k = 0
          End If
         'For J = 0 To DBGrid2.Columns.Count - 1
          PrintString = DBGrid2.Columns(3).CellText(DBGrid2.RowBookmark(k))
         'Next
         'Printer.Print PrintString
          .CurrentX = lngLM * 7.05
          .CurrentY = lngTM * (4.95 + k / 2.5)
          Dest.Print PrintString
          PrintString = ""
          k = k + 1
          DoEvents
          Next
          
'第五列内容
          For i1 = 0 To Data2.Recordset.RecordCount - 1
          If k = DBGrid2.VisibleRows Then
          DBGrid2.Scroll 0, DBGrid2.VisibleRows
          k = 0
          End If
         'For J = 0 To DBGrid1.Columns.Count - 1
          PrintString = DBGrid2.Columns(4).CellText(DBGrid2.RowBookmark(k))
         'Next
         'Printer.Print PrintString
          .CurrentX = lngLM * 8.6
          .CurrentY = lngTM * (4.95 + k / 2.5)
          Dest.Print PrintString
          PrintString = ""
          k = k + 1
          DoEvents
          Next
          
'第一行内容
          .CurrentX = lngLM * 2.35
          .CurrentY = lngTM * 2
          Dest.Print Text23.Text

          .CurrentX = lngLM * 2.9
          .CurrentY = lngTM * 2.75
          Dest.Print Text23.Text
          .CurrentX = lngLM * 9
          .CurrentY = lngTM * 2.75
          Dest.Print "NJZG/QR7.5-2-2"
               
'第2行内容
          .CurrentX = lngLM * 3.1
          .CurrentY = lngTM * 3.15
          Dest.Print Text4.Text

'第3行内容
          .CurrentX = lngLM * 3.5
          .CurrentY = lngTM * 3.55
          Dest.Print Text5.Text
          .CurrentX = lngLM * 9
          .CurrentY = lngTM * 3.55
          Dest.Print Text3.Text
          
            .Font.Name = "标楷体"
               .Font.Size = 12
             .CurrentX = lngLM + lngSW / 1.2 - .TextWidth("第 1 页")
             .CurrentY = lngTM + lngSH / 1.1 - .TextHeight("第 1 页")
               Dest.Print "第 " & Text26.Text & " 页"
          
End If



If SSTab1.Tab = 2 Then
'最后列内容
          For i1 = 0 To Data3.Recordset.RecordCount - 1
          If k = DBGrid3.VisibleRows Then
          DBGrid3.Scroll 0, DBGrid3.VisibleRows
          k = 0
          End If
         'For J = 0 To DBGrid3.Columns.Count - 1
          PrintString = DBGrid3.Columns(DBGrid3.Columns.count - 1).CellText(DBGrid3.RowBookmark(k))
         'Next
         'Printer.Print PrintString
          .CurrentX = lngLM * 10.3
          .CurrentY = lngTM * (4.95 + k / 2.5)
          Dest.Print PrintString
          PrintString = ""
          k = k + 1
          DoEvents
          Next

'第一列内容
          For i1 = 0 To Data3.Recordset.RecordCount - 1
          If k = DBGrid3.VisibleRows Then
          DBGrid3.Scroll 0, DBGrid3.VisibleRows
          k = 0
          End If
         'For J = 0 To DBGrid3.Columns.Count - 1
          PrintString = DBGrid3.Columns(0).CellText(DBGrid3.RowBookmark(k))
         'Next
         'Printer.Print PrintString
          .CurrentX = lngLM * 1.5
          .CurrentY = lngTM * (4.95 + k / 2.5)
          Dest.Print PrintString
          PrintString = ""
          k = k + 1
          DoEvents
          Next
          
'第二列内容
          For i1 = 0 To Data3.Recordset.RecordCount - 1
          If k = DBGrid3.VisibleRows Then
          DBGrid3.Scroll 0, DBGrid3.VisibleRows
          k = 0
          End If
         'For J = 0 To DBGrid3.Columns.Count - 1
          PrintString = DBGrid3.Columns(1).CellText(DBGrid3.RowBookmark(k))
         'Next
         'Printer.Print PrintString
          .CurrentX = lngLM * 2.4
          .CurrentY = lngTM * (4.95 + k / 2.5)
          Dest.Print PrintString
          PrintString = ""
          k = k + 1
          DoEvents
          Next

'第三列内容
          For i1 = 0 To Data3.Recordset.RecordCount - 1
          If k = DBGrid3.VisibleRows Then
          DBGrid3.Scroll 0, DBGrid3.VisibleRows
          k = 0
          End If
         'For J = 0 To DBGrid3.Columns.Count - 1
          PrintString = DBGrid3.Columns(2).CellText(DBGrid3.RowBookmark(k))
         'Next
         'Printer.Print PrintString
          .CurrentX = lngLM * 4.5
          .CurrentY = lngTM * (4.95 + k / 2.5)
          Dest.Print PrintString
          PrintString = ""
          k = k + 1
          DoEvents
          Next
               
'第四列内容
          For i1 = 0 To Data3.Recordset.RecordCount - 1
          If k = DBGrid3.VisibleRows Then
          DBGrid3.Scroll 0, DBGrid3.VisibleRows
          k = 0
          End If
         'For J = 0 To DBGrid3.Columns.Count - 1
          PrintString = DBGrid3.Columns(3).CellText(DBGrid3.RowBookmark(k))
         'Next
         'Printer.Print PrintString
          .CurrentX = lngLM * 7.05
          .CurrentY = lngTM * (4.95 + k / 2.5)
          Dest.Print PrintString
          PrintString = ""
          k = k + 1
          DoEvents
          Next
          
'第五列内容
          For i1 = 0 To Data3.Recordset.RecordCount - 1
          If k = DBGrid3.VisibleRows Then
          DBGrid3.Scroll 0, DBGrid3.VisibleRows
          k = 0
          End If
         'For J = 0 To DBGrid3.Columns.Count - 1
          PrintString = DBGrid3.Columns(4).CellText(DBGrid3.RowBookmark(k))
         'Next
         'Printer.Print PrintString
          .CurrentX = lngLM * 8.6
          .CurrentY = lngTM * (4.95 + k / 2.5)
          Dest.Print PrintString
          PrintString = ""
          k = k + 1
          DoEvents
          Next
          
'第一行内容
          .CurrentX = lngLM * 2.35
          .CurrentY = lngTM * 2
          Dest.Print Text24.Text

          .CurrentX = lngLM * 2.9
          .CurrentY = lngTM * 2.75
          Dest.Print Text24.Text
          .CurrentX = lngLM * 9
          .CurrentY = lngTM * 2.75
          Dest.Print "NJZG/QR7.5-2-2"
               
'第2行内容
          .CurrentX = lngLM * 3.1
          .CurrentY = lngTM * 3.15
          Dest.Print Text11.Text

'第3行内容
          .CurrentX = lngLM * 3.5
          .CurrentY = lngTM * 3.55
          Dest.Print Text12.Text
          .CurrentX = lngLM * 9
          .Cur
12345

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -