[Hỏi/Đáp] In hàng loạt sheet (1 người xem)

[manhcdb]

Mình có những file excel mà trong đó có rất nhiều Sheet, khi in hết các sheet thì rất lâu. Mình muốn hỏi các bạn là có cách nào in hàng loạt sheet trong một file Excel chỉ bằng một thao tác được không?
Xin cảm ơn

 

[Excel365]

Mình có những file excel mà trong đó có rất nhiều Sheet, khi in hết các sheet thì rất lâu. Mình muốn hỏi các bạn là có cách nào in hàng loạt sheet trong một file Excel chỉ bằng một thao tác được không?
Xin cảm ơn

Bạn sử dung addin ASAP Utilities.http://www.asap-utilities.com/download-asap-utilities.php

 

[mhieuit]

Mình có những file excel mà trong đó có rất nhiều Sheet, khi in hết các sheet thì rất lâu. Mình muốn hỏi các bạn là có cách nào in hàng loạt sheet trong một file Excel chỉ bằng một thao tác được không?
Xin cảm ơn

Hi anh,
anh thử sử dụng code bên dưới nhé.

Private Sub PrintSheets()
Dim iRet As Integer
Dim strPrompt As String
Dim strTitle As String
Dim Numcop As Long
    Numcop = Application.InputBox("Enter number of copies to print:", _
    "How Many Copies?", 1, Type:=1)
Dim i As Integer
    For i = 1 To Sheets.Count
    Application.ScreenUpdating = False
        Sheets(i).PrintOut Copies:=Numcop, Preview:=False, Collate:=True, IgnorePrintAreas:=False
    Application.ScreenUpdating = True
    Next i
  'Promt
    strPrompt = "Done Print, OK?"
 
    ' Dialog's Title
    strTitle = "Information"
 
    'Display MessageBox
    iRet = MsgBox(strPrompt, vbOKOnly, strTitle)
End Sub

 

[lehuong1409]

Mình có những file excel mà trong đó có rất nhiều Sheet, khi in hết các sheet thì rất lâu. Mình muốn hỏi các bạn là có cách nào in hàng loạt sheet trong một file Excel chỉ bằng một thao tác được không?
Xin cảm ơn

Có cách mình làm rất thủ công (Trong trường hợp tất cả các sheet đã đc set print area) Bạn giữ Ctrl chọn những sheet nào muốn in hoặc chuột phải chọn select all sheet rồi chọn in