This topic has been archived. It cannot be replied.
-
工作学习 / 专业技术讨论 / anyone can look at this VBA script and tell me what's wrong with it? It just won't print when I run it. thanks,Sub Print_financials()
Dim listRange As Range
Dim myCell As Range
Dim printRange As String
On Error Resume Next
Set listRange = ThisWorkbook.Worksheets("File_Maint").Range("Stmt-reports")
With Application
.ScreenUpdating = False
For Each myCell In listRange
printRange = myCell.Offset(0, 1).Value
With Worksheets(myCell.Value)
.PageSetup.PrintArea = printRange
.PrintOut
End With
Next myCell
.ScreenUpdating = True
End With
End Sub
-sannin99(雷蒙咨询);
2006-11-8
{468}
(#3309119@0)