请教下能实现一键打印excel吗？

ziyuan567

表格内容经常更新，每天陆续合计需几十份，问下老师，能一键打印吗？

65861954

printout。

ziyuan567

65861954 发表于 2023-3-3 11:47
printout。

请教哈具体怎么操作啊？

gbgbxgb

Sub my_print()
    Dim myPrintArea$, theCell As Range
    '
    With ActiveSheet
        With .Columns("A:G")
            Set theCell = .Find("*", .Cells(1), xlValues, xlPart, xlByRows, xlPrevious, False, False, False)
        End With
        If Not theCell Is Nothing Then
            myPrintArea = .Range(.Cells(1, 1), .Cells(theCell.Row, 7)).Address(ReferenceStyle:=xlA1)
            With .PageSetup
                .BlackAndWhite = True
                .PrintArea = myPrintArea
            End With
            .PrintPreview '预览打印
'            .PrintOut '打印
        End If
    End With
    Set theCell = Nothing
End Sub

破例

1. sub dy()
   
2. ActiveSheet.PageSetup.PrintArea ="A1:G30"
   
3. ActiveSheet.PrintOut ActivePrinter:="打印机名"
   
4. End Sub

复制代码

cidanji

Range("A1:G30").PrintOut

ziyuan567

cidanji 发表于 2023-3-6 13:23
Range("A1:G30").PrintOut

感谢，就是这个意思了，

ziyuan567

gbgbxgb 发表于 2023-3-3 21:43
Sub my_print()
    Dim myPrintArea$, theCell As Range
    '

厉害了，这么多代码，感谢帮助

ziyuan567

破例 发表于 2023-3-3 21:50

谢谢老师帮助；

gbgbxgb

ziyuan567 发表于 2023-3-8 08:54
厉害了，这么多代码，感谢帮助

提示下：代码多，功能强些。不知你实际工作中打印区域是否固定，即便固定，也有下文所说的“*”行的问题吧。

总之，本代码有如下特点：
1.打印时不会把“*”号行（即最底行）也打印出来（注：若把活动单元格置于数据区，则数据区底部将出现“*”行，这显然是Excel数据处理功能内置的效果，应该无法去除）；
2.打印的区域不受数据行数影响，灵活适应。数据有多少行就可以打印多少行。