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

📄 frmzcgy.frm

📁 广翔税务代理版打印,能制作非常复杂的报表.
💻 FRM
📖 第 1 页 / 共 3 页
字号:
🔍
123 
         Height          =   180
         Left            =   6480
         TabIndex        =   31
         Top             =   60
         Width           =   450
      End
      Begin VB.Label Label3 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "编制单位:"
         Height          =   180
         Left            =   -72480
         TabIndex        =   30
         Top             =   60
         Width           =   810
      End
      Begin VB.Label Label2 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "日期:"
         Height          =   180
         Left            =   -68520
         TabIndex        =   29
         Top             =   60
         Width           =   450
      End
   End
   Begin VB.TextBox Text1 
      BeginProperty DataFormat 
         Type            =   1
         Format          =   "0.00"
         HaveTrueFalseNull=   0
         FirstDayOfWeek  =   0
         FirstWeekOfYear =   0
         LCID            =   2052
         SubFormatType   =   1
      EndProperty
      Height          =   270
      Left            =   450
      TabIndex        =   2
      Text            =   "Text1"
      Top             =   -330
      Visible         =   0   'False
      Width           =   1095
   End
   Begin VB.Label Label8 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "单位:元"
      Height          =   180
      Left            =   9195
      TabIndex        =   1
      Top             =   315
      Width           =   630
   End
   Begin VB.Label Label7 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "工会01表"
      Height          =   180
      Left            =   9195
      TabIndex        =   0
      Top             =   75
      Width           =   720
   End
End
Attribute VB_Name = "frmzcgy"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Const ASC_ENTER = 13 '回车
Dim gRow As Integer
Dim gCol As Integer
Dim gRow1 As Integer
Dim gCol1 As Integer
Dim zsbexcel As Excel.Application


Private Sub cmdprint_Click()
Dim t As Integer
Dim j As Integer
Set zsbexcel = New Excel.Application
 zsbexcel.Visible = True
' Set zsbexcel = Nothing
 zsbexcel.SheetsInNewWorkbook = 1
      Set zsbworkbook = zsbexcel.Workbooks.Open(App.Path + "\" + "sheet\gong01.xlt")
   With zsbexcel.ActiveSheet
.Range("C7").Value = Text2
.Range("J7").Value = DTPicker1.Year 'Format(DTPicker1.Value) 'Year + "-" + DTPicker1.Month + "-" + DTPicker1.Day
.Range("L7").Value = DTPicker1.Month
.Range("N7").Value = DTPicker1.Day
.Range("F47").Value = Text3
.Range("H48").Value = Text4
.Range("D49").Value = Text5
.Range("K49").Value = Text6
.Range("D50").Value = Text7
.Range("K50").Value = Text8
'.Range("G6").Value = DTPicker1.Month
'.Range("J6").Value = DTPicker1.Day
For t = 10 To 45
'If t = 6 Or t = 20 Or t = 22 Or t = 23 Then
't = t + 1
'Else
'End If
Grid1.Row = t - 9
Grid2.Row = t - 9
'For j = 2 To 3
Grid1.Col = 2
Grid2.Col = 2
a = "E" + CStr(t)
a1 = "O" + CStr(t)
'If IsNull(Grid1.Text) = False Then
.Range(a) = Grid1.Text
.Range(a1) = Grid2.Text
'End If
'Next j
Next t

For j = 10 To 45
Grid1.Row = j - 9
Grid2.Row = j - 9
'For j = 2 To 3
Grid1.Col = 3
Grid2.Col = 3
b = "G" + CStr(j)
b1 = "Q" + CStr(j)
.Range(b) = Grid1.Text
.Range(b1) = Grid2.Text
'If IsNull(Grid1.Text) = False Or Grid1.Text = "×" Then
'.Range(b) = ""
'.Range(a) = ""
'End If
'Next j
Next j

End With
  'dd = MsgBox("yes or no", vbYesNo + vbSystemModal)
  'If dd = vbNo Then Exit Sub
 ' zsbexcel.ActiveSheet.PageSetup.Orientation = xlPortrait       'xlLandscape
  'zsbexcel.ActiveSheet.PageSetup.PaperSize = xlPaperA4
 zsbexcel.Caption = "打印预览"
 zsbexcel.ActiveWindow.SelectedSheets.PrintPreview
  'zsbexcel.ActiveSheet.PrintOut
  zsbexcel.DisplayAlerts = False
  zsbexcel.Quit
  zsbexcel.DisplayAlerts = True
  Set zsbexcel = Nothing
  Exit Sub
'errorhandler:
    'MsgBox "请正确安装EXCEL！", vbOKOnly + vbCritical
   'Exit Sub

End Sub

Private Sub Command1_Click()
SaveYearStar
End Sub

Private Sub Form_Load()
Me.Left = (Screen.Width - Me.Width) / 2
Me.Top = (Screen.Height - Me.Height) / 2
SSTab1.Tab = 0
Text2 = frmqy.qymc
DTPicker1 = Date
Grid1.ColWidth(0) = (Grid1.Width / 4) + 1150
    Grid1.ColWidth(1) = (Grid1.Width / 4) - 1200
    Grid1.ColWidth(2) = (Grid1.Width / 4) - 170
    Grid1.ColWidth(3) = (Grid1.Width / 4) - 170
Grid2.ColWidth(0) = (Grid2.Width / 4) + 1150
    Grid2.ColWidth(1) = (Grid2.Width / 4) - 1200
    Grid2.ColWidth(2) = (Grid2.Width / 4) - 170
    Grid2.ColWidth(3) = (Grid2.Width / 4) - 170
Grid1.TextMatrix(0, 0) = "        资          产"
Grid1.TextMatrix(0, 1) = " 行次"
Grid1.TextMatrix(0, 2) = "     年初数"
Grid1.TextMatrix(0, 3) = "     期末数"
Grid1.TextMatrix(1, 0) = "流动资产"
  Grid1.TextMatrix(2, 0) = "  货币资金"
Grid1.TextMatrix(2, 1) = "  1"
  Grid1.TextMatrix(3, 0) = "  短期投资"
  Grid1.TextMatrix(3, 1) = "  2"
  Grid1.TextMatrix(4, 0) = "  应收票据"
  Grid1.TextMatrix(4, 1) = "  3"
  Grid1.TextMatrix(5, 0) = "  应收帐款"
  Grid1.TextMatrix(5, 1) = "  4"
Grid1.TextMatrix(6, 0) = "    减:坏帐准备"
Grid1.TextMatrix(6, 1) = "  5"
  Grid1.TextMatrix(7, 0) = "       应收帐款净额"
  Grid1.TextMatrix(7, 1) = "  6"
  Grid1.TextMatrix(8, 0) = "  预付帐款"
  Grid1.TextMatrix(8, 1) = "  7"
  Grid1.TextMatrix(9, 0) = "  应收补贴款"
  Grid1.TextMatrix(9, 1) = "  8"
  Grid1.TextMatrix(10, 0) = "  其他应收款"
  Grid1.TextMatrix(10, 1) = "  9"
  Grid1.TextMatrix(11, 0) = "  存货"
  Grid1.TextMatrix(11, 1) = "  10"
  Grid1.TextMatrix(12, 0) = "  待摊费用"
  Grid1.TextMatrix(12, 1) = "  11"
  Grid1.TextMatrix(13, 0) = "  待处理流动资产净损失"
  Grid1.TextMatrix(13, 1) = "  12"
  Grid1.TextMatrix(14, 0) = "   一年内到期的长期债券投资"
  Grid1.TextMatrix(14, 1) = "  13"
  Grid1.TextMatrix(15, 0) = "  其他流动资产"
  Grid1.TextMatrix(15, 1) = "  14"
  Grid1.TextMatrix(16, 0) = "        流动资产合计"
  Grid1.TextMatrix(16, 1) = "  20"
Grid1.TextMatrix(17, 0) = "长期投资:"
  Grid1.TextMatrix(18, 0) = "  长期投资"
  Grid1.TextMatrix(18, 1) = "  21"
Grid1.TextMatrix(19, 0) = "固定投资:"
  Grid1.TextMatrix(20, 0) = "  固定资产原价"
  Grid1.TextMatrix(20, 1) = "  24"
Grid1.TextMatrix(21, 0) = "    减:累计折旧"
Grid1.TextMatrix(21, 1) = "  25"
Grid1.TextMatrix(22, 0) = "  固定资产净值"
Grid1.TextMatrix(22, 1) = "  26"
  Grid1.TextMatrix(23, 0) = "  固定资产清理"
  Grid1.TextMatrix(23, 1) = "  27"
  Grid1.TextMatrix(24, 0) = "  在建工程"
  Grid1.TextMatrix(24, 1) = "  28"
  Grid1.TextMatrix(25, 0) = "  待处理固定资产净损失"
  Grid1.TextMatrix(25, 1) = "  29"
Grid1.TextMatrix(26, 0) = "         固定资产合计"
Grid1.TextMatrix(26, 1) = "  35"
Grid1.TextMatrix(27, 0) = "无形及递延资产:"
  Grid1.TextMatrix(28, 0) = "  无形资产"
  Grid1.TextMatrix(28, 1) = "  36"
  Grid1.TextMatrix(29, 0) = "  递延资产"
  Grid1.TextMatrix(29, 1) = "  37"
        
  Grid1.TextMatrix(31, 0) = "        无形及递延资产合计"
  Grid1.TextMatrix(31, 1) = "  40"
Grid1.TextMatrix(32, 0) = "其他长期资产:"
  Grid1.TextMatrix(33, 0) = "  其他长期资产"
  Grid1.TextMatrix(33, 1) = "  41"
Grid1.TextMatrix(34, 0) = "递延税项:"
    Grid1.TextMatrix(35, 0) = "  递延税款借项"
    Grid1.TextMatrix(35, 1) = "  42"
      Grid1.TextMatrix(36, 0) = "           资产总计"
      Grid1.TextMatrix(36, 1) = "  50"
 For X = 1 To 36

Grid1.TextMatrix(X, 2) = Format(0, "###0.00")
Grid1.TextMatrix(X, 3) = Format(0, "###0.00")
If X = 1 Or X = 17 Or X = 19 Or X = 27 Or X = 30 Or X = 32 Or X = 34 Then
Grid1.TextMatrix(X, 2) = ""
Grid1.TextMatrix(X, 3) = ""
Else
End If
 Next X
     
     
     
 Grid1.Row = 7
Grid1.Col = 2
Grid1.CellBackColor = &HE0E0E0
 Grid1.Row = 7
Grid1.Col = 3
Grid1.CellBackColor = &HE0E0E0
 Grid1.Row = 16
Grid1.Col = 2
Grid1.CellBackColor = &HE0E0E0
 Grid1.Row = 16
Grid1.Col = 3
Grid1.CellBackColor = &HE0E0E0
 Grid1.Row = 22
Grid1.Col = 2
Grid1.CellBackColor = &HE0E0E0
  Grid1.Row = 22
Grid1.Col = 3
Grid1.CellBackColor = &HE0E0E0
 Grid1.Row = 26
Grid1.Col = 2
Grid1.CellBackColor = &HE0E0E0
 Grid1.Row = 26
Grid1.Col = 3
Grid1.CellBackColor = &HE0E0E0
 Grid1.Row = 31
Grid1.Col = 2
Grid1.CellBackColor = &HE0E0E0
 Grid1.Row = 31
Grid1.Col = 3
Grid1.CellBackColor = &HE0E0E0
 Grid1.Row = 36
Grid1.Col = 2
Grid1.CellBackColor = &HE0E0E0
 Grid1.Row = 36
Grid1.Col = 3
Grid1.CellBackColor = &HE0E0E0
 
Grid2.TextMatrix(0, 0) = "     负债及所有者权益"
Grid2.TextMatrix(0, 1) = " 行次"
Grid2.TextMatrix(0, 2) = "     年初数"
Grid2.TextMatrix(0, 3) = "     期末数"
Grid2.TextMatrix(1, 0) = "流动负债"
Grid2.TextMatrix(2, 0) = "  短期借款"
Grid2.TextMatrix(2, 1) = "  51"
Grid2.TextMatrix(3, 0) = "  应付票据"
Grid2.TextMatrix(3, 1) = "  52"
Grid2.TextMatrix(4, 0) = "  应付帐款"
Grid2.TextMatrix(4, 1) = "  53"
Grid2.TextMatrix(5, 0) = "  预收帐款"
Grid2.TextMatrix(5, 1) = "  54"
Grid2.TextMatrix(6, 0) = "  其他应付款"
Grid2.TextMatrix(6, 1) = "  55"
Grid2.TextMatrix(7, 0) = "  应付工资"
Grid2.TextMatrix(7, 1) = "  56"
Grid2.TextMatrix(8, 0) = "  应付福利款"
Grid2.TextMatrix(8, 1) = "  57"
Grid2.TextMatrix(9, 0) = "  未交税金"
Grid2.TextMatrix(9, 1) = "  58"
Grid2.TextMatrix(10, 0) = "  未付利润"
Grid2.TextMatrix(10, 1) = "  59"
Grid2.TextMatrix(11, 0) = "  其他未交款"
Grid2.TextMatrix(11, 1) = "  60"
Grid2.TextMatrix(12, 0) = "  预提费用"
Grid2.TextMatrix(12, 1) = "  61"
Grid2.TextMatrix(13, 0) = "  一年内到期的长期负债"
Grid2.TextMatrix(13, 1) = "  62"
Grid2.TextMatrix(14, 0) = "  其他流动负债"
Grid2.TextMatrix(14, 1) = "  63"
Grid2.TextMatrix(15, 0) = "      流动负债合计"
Grid2.TextMatrix(15, 1) = "  70"
Grid2.TextMatrix(16, 0) = "长期负债:"
Grid2.TextMatrix(17, 0) = "  长期借款"
Grid2.TextMatrix(17, 1) = "  71"
Grid2.TextMatrix(18, 0) = "  应付债券"
Grid2.TextMatrix(18, 1) = "  72"
Grid2.TextMatrix(19, 0) = "  长期应付款"
Grid2.TextMatrix(19, 1) = "  73"
Grid2.TextMatrix(20, 0) = "  其他长期负债"
Grid2.TextMatrix(20, 1) = "  80"
Grid2.TextMatrix(21, 0) = "  其中:住房周转金"
Grid2.TextMatrix(21, 1) = "  81"
                            
Grid2.TextMatrix(23, 0) = "        长期负债合计"
Grid2.TextMatrix(23, 1) = "  83"
Grid2.TextMatrix(24, 0) = "递延税项:"
Grid2.TextMatrix(25, 0) = "  递延税款贷项"
Grid2.TextMatrix(25, 1) = "  85"
Grid2.TextMatrix(26, 0) = "     负债合计"
Grid2.TextMatrix(26, 1) = "  90"
Grid2.TextMatrix(27, 0) = "所有者权益:"
Grid2.TextMatrix(28, 0) = "  实收资本"
Grid2.TextMatrix(28, 1) = "  91"
Grid2.TextMatrix(29, 0) = "  资本公积"
Grid2.TextMatrix(29, 1) = "  92"
Grid2.TextMatrix(30, 0) = "  盈余公积"
Grid2.TextMatrix(30, 1) = "  93"
Grid2.TextMatrix(31, 0) = "    其中公益金"
Grid2.TextMatrix(31, 1) = "  94"
Grid2.TextMatrix(32, 0) = "  未分配利润"
Grid2.TextMatrix(32, 1) = "  95"
Grid2.TextMatrix(33, 0) = "        所有者权益合计"
Grid2.TextMatrix(33, 1) = "  96"
Grid2.TextMatrix(36, 0) = "     负债及所有者权益总计"
Grid2.TextMatrix(36, 1) = "  100"
Grid2.Row = 15
Grid2.Col = 2
Grid2.CellBackColor = &HE0E0E0
 Grid2.Row = 15
Grid2.Col = 3
Grid2.CellBackColor = &HE0E0E0
Grid2.Row = 23
Grid2.Col = 2
Grid2.CellBackColor = &HE0E0E0
 Grid2.Row = 23
Grid2.Col = 3
Grid2.CellBackColor = &HE0E0E0
Grid2.Row = 26
Grid2.Col = 2
Grid2.CellBackColor = &HE0E0E0
 Grid2.Row = 26
Grid2.Col = 3
Grid2.CellBackColor = &HE0E0E0
Grid2.Row = 33
Grid2.Col = 2
Grid2.CellBackColor = &HE0E0E0
 Grid2.Row = 33
Grid2.Col = 3
Grid2.CellBackColor = &HE0E0E0
Grid2.Row = 36
Grid2.Col = 2
Grid2.CellBackColor = &HE0E0E0
 Grid2.Row = 36
Grid2.Col = 3
Grid2.CellBackColor = &HE0E0E0
123

⌨️ 快捷键说明

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