何云 发表于：2009-07-01 09:42:04
Private Sub cmdPrint4_Click()
Dim s As String
s = Trim(InputBox("Please Input Start Position", , "1"))
If s = "" Then Exit Sub
If Not IsNumeric(s) Then Exit Sub
StartPosition = CInt(s)
If StartPosition = 0 Or SkinpCount > 4 Then Exit Sub
NowPosition = 1
DoCmd.OpenReport "LABELREPORT4", acViewPreview < -削除
DoCmd.OpenReport "LABELREPORT4", acViewNormal < -变更
End Sub
尤其是两句DoCmd这两句，我知道上面一句是打印预览，下面一句大概就是直接打印吧！但是我点击的时候他就自动直接打印了，没有预览啊，后面那个尖括号上面消除，变更是啥意思啊！好像也不是注释！？
注释是用单引号'
倒数第二行是直接打印报表，你要去掉这一行。
Private Sub cmdPrint4_Click()
Dim s As String
s = Trim(InputBox("Please Input Start Position", , "1"))
If s = "" Then Exit Sub
If Not IsNumeric(s) Then Exit Sub
StartPosition = CInt(s)
If StartPosition = 0 Or SkinpCount > 4 Then Exit Sub
NowPosition = 1
DoCmd.OpenReport "LABELREPORT4", acViewPreview
End Sub
那尖括号后面的表示什么意思呢？
这个代码是别人写，他既然两行都存在，应该有他的用意，只是我现在还不知道后面两个尖括号是什么意思！？
< - 在ACCESS的VBA代码中是个错误的字符，我想他的意思是告诉你是个注释。
< - 应该是注释（好像他的注释符号不好打，所以用<来代替）
acViewPreview值为2
acViewNormal 值为0所以直接打印，除了楼上所说的，你也可以把acViewNormal 换成acViewPreview试试。我没有试。
