EXCEL打印按扭

renshenbin

请问如何编写打印按扭的程序，让其可以打印所选定的区域。

方漠

工作表里建一按钮,COPY如下代码试一下.

Sub PrintSelectionRange()

If Selection Is Nothing Then
    MsgBox "lease select the cells which need to print...", vbInformation
    Else
    If Selection.Count = 1 Then
      If MsgBox("You have selected a single cell, continue to print?", vbQuestion + vbYesNo) = vbYes Then
         Selection.PrintOut
      End If
     Else
        Selection.PrintOut
    End If
End If

End Sub

qqqqqqwwwwww

可以设置一个字符串来代替下面的a1到g19

Range("A1:G19").Select
    ActiveSheet.PageSetup.PrintArea = "$A$1G$19"

Selection.PrintOut