frmzcsy.frm

广翔税务代理版打印,能制作非常复杂的报表.

      Caption         =   "单位:元"
      Height          =   180
      Left            =   9150
      TabIndex        =   1
      Top             =   450
      Width           =   630
   End
   Begin VB.Label Label7 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "工会01表"
      Height          =   180
      Left            =   9150
      TabIndex        =   0
      Top             =   210
      Width           =   720
   End
End
Attribute VB_Name = "frmzcsy"
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\shang01.xlt")
   With zsbexcel.ActiveSheet
.Range("C5").Value = Text2
.Range("J6").Value = DTPicker1.Year 'Format(DTPicker1.Value) 'Year + "-" + DTPicker1.Month + "-" + DTPicker1.Day
.Range("L6").Value = DTPicker1.Month
.Range("N6").Value = DTPicker1.Day
.Range("H47").Value = Text3
.Range("H48").Value = Text4
.Range("H49").Value = Text5
.Range("H50").Value = Text6
'.Range("G6").Value = DTPicker1.Month
'.Range("J6").Value = DTPicker1.Day
For t = 9 To 45
'If t = 6 Or t = 20 Or t = 22 Or t = 23 Then
't = t + 1
'Else
'End If
Grid1.Row = t - 8
Grid2.Row = t - 8
'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 - 8
Grid2.Row = j - 8
'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) = "  15"
  Grid1.TextMatrix(17, 0) = "  其他流动资产"
  Grid1.TextMatrix(17, 1) = "  16"
  Grid1.TextMatrix(18, 0) = "        流动资产合计"
  Grid1.TextMatrix(18, 1) = "  20"
  Grid1.TextMatrix(19, 0) = "长期投资:"
  Grid1.TextMatrix(20, 0) = "  长期投资"
  Grid1.TextMatrix(20, 1) = "  21"
  Grid1.TextMatrix(21, 0) = "固定投资:"
  Grid1.TextMatrix(22, 0) = "  固定资产原价"
  Grid1.TextMatrix(22, 1) = "  24"
Grid1.TextMatrix(23, 0) = "    减:累计折旧"
Grid1.TextMatrix(23, 1) = "  25"
Grid1.TextMatrix(24, 0) = "  固定资产净值"
Grid1.TextMatrix(24, 1) = "  26"
  Grid1.TextMatrix(25, 0) = "  固定资产清理"
  Grid1.TextMatrix(25, 1) = "  27"
    Grid1.TextMatrix(26, 0) = "  在建工程"
  Grid1.TextMatrix(26, 1) = "  28"
  Grid1.TextMatrix(27, 0) = "  待处理固定资产净损失"
  Grid1.TextMatrix(27, 1) = "  29"
  
Grid1.TextMatrix(28, 0) = "         固定资产合计"
Grid1.TextMatrix(28, 1) = "  35"
Grid1.TextMatrix(29, 0) = "无形及递延资产:"
  Grid1.TextMatrix(30, 0) = "  无形资产"
  Grid1.TextMatrix(30, 1) = "  36"
  Grid1.TextMatrix(31, 0) = "  递延资产"
  Grid1.TextMatrix(31, 1) = "  37"
  Grid1.TextMatrix(32, 0) = "        无形及递延资产合计"
  Grid1.TextMatrix(32, 1) = "  40"
Grid1.TextMatrix(33, 0) = "其他长期资产:"
  Grid1.TextMatrix(34, 0) = "  其他长期资产"
  Grid1.TextMatrix(34, 1) = "  41"
  
Grid1.TextMatrix(35, 0) = "递延税项:"
    Grid1.TextMatrix(36, 0) = "  递延税款借项"
    Grid1.TextMatrix(36, 1) = "  42"
      Grid1.TextMatrix(37, 0) = "           资产总计"
      Grid1.TextMatrix(37, 1) = "  45"
 For X = 1 To 37

Grid1.TextMatrix(X, 2) = Format(0, "###0.00")
Grid1.TextMatrix(X, 3) = Format(0, "###0.00")
If X = 1 Or X = 19 Or X = 21 Or X = 29 Or X = 33 Or X = 35 Then
Grid1.TextMatrix(X, 2) = ""
Grid1.TextMatrix(X, 3) = ""
Else
End If
 Next X
     
loadyearstar
     
 Grid1.Row = 7
Grid1.Col = 2
Grid1.CellBackColor = &HE0E0E0
 Grid1.Row = 7
Grid1.Col = 3
Grid1.CellBackColor = &HE0E0E0
 Grid1.Row = 18
Grid1.Col = 2
Grid1.CellBackColor = &HE0E0E0
 Grid1.Row = 18
Grid1.Col = 3
Grid1.CellBackColor = &HE0E0E0
 Grid1.Row = 24
Grid1.Col = 2
Grid1.CellBackColor = &HE0E0E0
  Grid1.Row = 24
Grid1.Col = 3
Grid1.CellBackColor = &HE0E0E0
 Grid1.Row = 28
Grid1.Col = 2
Grid1.CellBackColor = &HE0E0E0
 Grid1.Row = 28
Grid1.Col = 3
Grid1.CellBackColor = &HE0E0E0
 Grid1.Row = 32
Grid1.Col = 2
Grid1.CellBackColor = &HE0E0E0
 Grid1.Row = 32
Grid1.Col = 3
Grid1.CellBackColor = &HE0E0E0
 Grid1.Row = 37
Grid1.Col = 2
Grid1.CellBackColor = &HE0E0E0
 Grid1.Row = 37
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) = "  46"
Grid2.TextMatrix(3, 0) = "  应付票据"
Grid2.TextMatrix(3, 1) = "  47"
Grid2.TextMatrix(4, 0) = "  应付帐款"
Grid2.TextMatrix(4, 1) = "  48"
Grid2.TextMatrix(5, 0) = "  预收帐款"
Grid2.TextMatrix(5, 1) = "  49"
Grid2.TextMatrix(6, 0) = "  其他应付款"
Grid2.TextMatrix(6, 1) = "  50"
Grid2.TextMatrix(7, 0) = "  应付工资"
Grid2.TextMatrix(7, 1) = "  51"
Grid2.TextMatrix(8, 0) = "  应付福利款"
Grid2.TextMatrix(8, 1) = "  52"
Grid2.TextMatrix(9, 0) = "  未交税金"
Grid2.TextMatrix(9, 1) = "  53"
Grid2.TextMatrix(10, 0) = "  未付利润"
Grid2.TextMatrix(10, 1) = "  54"
Grid2.TextMatrix(11, 0) = "  其他未交款"
Grid2.TextMatrix(11, 1) = "  55"
Grid2.TextMatrix(12, 0) = "  预提费用"
Grid2.TextMatrix(12, 1) = "  56"
Grid2.TextMatrix(13, 0) = "  一年内到期的长期负债"
Grid2.TextMatrix(13, 1) = "  57"
Grid2.TextMatrix(14, 0) = "  其他流动负债"
Grid2.TextMatrix(14, 1) = "  58"

Grid2.TextMatrix(16, 0) = "      流动负债合计"
Grid2.TextMatrix(16, 1) = "  65"

Grid2.TextMatrix(18, 0) = "长期负债:"
Grid2.TextMatrix(19, 0) = "  长期借款"
Grid2.TextMatrix(19, 1) = "  66"
Grid2.TextMatrix(20, 0) = "  应付债券"
Grid2.TextMatrix(20, 1) = "  67"
Grid2.TextMatrix(21, 0) = "  长期应付款"
Grid2.TextMatrix(21, 1) = "  68"
Grid2.TextMatrix(22, 0) = "  其他长期负债"
Grid2.TextMatrix(22, 1) = "  69"
Grid2.TextMatrix(23, 0) = "  其中:住房周转金"
Grid2.TextMatrix(23, 1) = "  70"
Grid2.TextMatrix(24, 0) = "        长期负债合计"
Grid2.TextMatrix(24, 1) = "  76"
Grid2.TextMatrix(25, 0) = "递延税项:"
Grid2.TextMatrix(26, 0) = "  递延税款贷项"
Grid2.TextMatrix(26, 1) = "  77"
Grid2.TextMatrix(27, 0) = "     负债合计"
Grid2.TextMatrix(27, 1) = "  80"


Grid2.TextMatrix(30, 0) = "所有者权益:"
Grid2.TextMatrix(31, 0) = "  实收资本"
Grid2.TextMatrix(31, 1) = "  81"
Grid2.TextMatrix(32, 0) = "  资本公积"
Grid2.TextMatrix(32, 1) = "  82"
Grid2.TextMatrix(33, 0) = "  盈余公积"
Grid2.TextMatrix(33, 1) = "  83"
Grid2.TextMatrix(34, 0) = "    其中:公益金"
Grid2.TextMatrix(34, 1) = "  84"
Grid2.TextMatrix(35, 0) = "  未分配利润"
Grid2.TextMatrix(35, 1) = "  85"
Grid2.TextMatrix(36, 0) = "        所有者权益合计"
Grid2.TextMatrix(36, 1) = "  88"
Grid2.TextMatrix(37, 0) = "     负债及所有者权益总计"
Grid2.TextMatrix(37, 1) = "  90"
Grid2.Row = 16
Grid2.Col = 2
Grid2.CellBackColor = &HE0E0E0
 Grid2.Row = 16
Grid2.Col = 3
Grid2.CellBackColor = &HE0E0E0
Grid2.Row = 24
Grid2.Col = 2
Grid2.CellBackColor = &HE0E0E0
 Grid2.Row = 24
Grid2.Col = 3
Grid2.CellBackColor = &HE0E0E0
Grid2.Row = 27
Grid2.Col = 2
Grid2.CellBackColor = &HE0E0E0
 Grid2.Row = 27
Grid2.Col = 3
Grid2.CellBackColor = &HE0E0E0
Grid2.Row = 36
Grid2.Col = 2
Grid2.CellBackColor = &HE0E0E0
 Grid2.Row = 36
Grid2.Col = 3
Grid2.CellBackColor = &HE0E0E0
Grid2.Row = 37
Grid2.Col = 2
Grid2.CellBackColor = &HE0E0E0
 Grid2.Row = 37
Grid2.Col = 3
Grid2.CellBackColor = &HE0E0E0

 For Y = 1 To 37