请教各位大师帮忙！！！EXCEL用VBA按选定有数据的单元格并按选择区域打印，宏怎么编写！！！！

Question

请教各位大师帮忙！！！EXCEL用VBA按选定有数据的单元格并按选择区域打印，宏怎么编写！！！！
要把这个表里的数据选择出来

然后选定有数据的单元格

最后按选择区域打印出来

谢谢

Answer 1

我这是自动找到最后一行的，符合你的要求，请试试。

Private Sub CommandButton1_Click()
Dim row_last As Integer
Dim temp1 As Integer
Selection.SpecialCells(xlCellTypeLastCell).Select
flag = False
Do While flag = False
    If ActiveCell.Row = 1 Then
        Exit Do
    End If
    Selection.End(xlToLeft).Select
        temp1 = IsEmpty(ActiveCell.Value)
    Selection.End(xlToRight).Select
        temp2 = IsEmpty(ActiveCell.Value)
    If temp1 = True And temp2 = True Then
        Selection.Offset(-1, 0).Select
    Else
        flag = True
        Exit Do
    End If
Loop
Selection.End(xlToLeft).Select
row_last = ActiveCell.Row
Range(Cells(1, 1), Cells(row_last, 1)).Select
   Selection.PrintOut Copies:=1
End Sub

 

Answer 2

Range("A1:A22").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

将以上代码粘贴至控件代码区。

追问

Range("A1:A22").Select

但是有的时候，我的数据不止是到22行，有的时候会更多或更少，能不能自动判断有数据的行呢

追答

Range("A:A").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

追问

这样就把一整列选择了，能不能空白的地方不选择呢

追答

ActiveSheet.UsedRange.Select '选择活动工作表已使用区域
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True '打印

追问

谢谢

Answer 3

可以实现自定义区域的打印 没问题