身份证号的分栏显示？

Private Sub Command0_Click()    ‘利用循环函数分开数字
  For i = 1 To 18
  j = Mid(Me.身份证号码, i, 1)
  k = k & " " & j   ‘ 数字之间用空格分开
  Next i
  MsgBox k      ’k就是分开以后的数字，你可以把它写到控件里
End Sub

'至于报表的方格，一般都是事先印好的，或者你可以加一个带方格的报表背景图片就可以了。