Print函数的使用

erin373

我输入以下一段print语句，总是报错 run time error 438,object doesn't support this property or method.但是print改成debug.print就是正确的。求教原因？

Sub i()
    Dim str As String
    str = "Hello Python"
    Print str
End Sub

Vicel

1. Sub i()
   
2.     Dim str As String
   
3.     str = "Hello Python"
   
4.     Debug.Print str   '立即窗口输出
   
5.     MsgBox str        '对话框输出
   
6. End Sub
   

复制代码

activesheet.printout 工作表打印
activesheet.printpreview 工作表打印预览

erin373

Vicel 发表于 2015-1-26 13:53
activesheet.printout 工作表打印
activesheet.printpreview 工作表打印预览

我看很多代码里有使用print函数的情况 ，我想知道如何使用print

宝石山人

我在2013版的窗体中运用activesheet.printpreview，之后失联了，只能强硬退出！

   我是 窗体.hide，之后activesheet.printpreview，需要浏览内容，然后看不到预览页，也回不到窗体了。

请教，如何解决此问题？在2003版中都能正常运行的。

Vicel

宝石山人 发表于 2018-5-4 21:51
我在2013版的窗体中运用activesheet.printpreview，之后失联了，只能强硬退出！

   我是 窗体.hide，之 ...

1. Private Sub CommandButton1_Click()
   
2.     Me.Hide
   
3.     ActiveSheet.PrintPreview
   
4.     Me.Show
   
5. End Sub

复制代码

2010是正常的。窗体先隐藏了，出来打印预览界面，关闭打印预览后，再现窗体

宝石山人

在同一窗体运行 printpreview 结果为什么不一样？
一。在基础表中
     ROW2 = ActiveCell.Row
     If Sheets(3).Cells(ActiveCell.Row - 1, 3 + (LunSu - 1) * 14) > " " Then  ' ???3??????????
        Sheets("Sheet3").Select
        Cells(ROW2 - 2, 3 + (LunSu - 1) * 14).Range("A1:I" & Int(RenSu / 2 + 0.5) + 3).Select
        With Selection
          .PrintPreview
        End With
        Sheets("Sheet4").Select
        Cells(ROW2 - 2, 1 + (LunSu - 1) * 5).Range("A1:D" & RenSu + 3).Select
        With Selection
          .PrintPreview
        End With
        Sheets("Sheet1").Select
     Else
        Sheets("Sheet1").PrintPreview
     End If

此时能打印

二、打开新表，运行
       i = ActiveSheet.Index
       With Sheets(i)
      '    .Unprotect
          .PrintPreview
      '    .Protect
       End With

此时，隐藏窗体后，没显示打印内容，程序失联