[hỏi] Code VBA in trang bất kỳ tất cả Sheet Excel

kengoaidao.2711 · Đăng lúc 14/10/2014 07:50

Hãy đăng nhập để có nhiều chức năng hữu dụng hơn và xem ảnh rõ hơn!

Bạn phải đăng nhập để xem được nội dung, nếu bạn chưa có tài khoản? hãy Đăng ký mới

x

Hỏi Code VBA in trang bất kỳ tất cả Sheet Excel. Thanks!

fubi · Đăng lúc 30/9/2015 17:20

[Visual Basic] 纯文本查看 复制代码

Sub In_chon()
    Dim Sosheet As Integer
    Dim i As Integer
    Dim Trangin As Integer
    On Error GoTo Thoat
    Sosheet = ThisWorkbook.Sheets.Count
    Trangin = Val(InputBox("Ban vao thu tu trang de in:", , 1))
    For i = 1 To Sosheet
        Sheets(i).Select
        ActiveWindow.SelectedSheets.PrintOut From:=Trangin, To:=Trangin, Copies:=1, Collate:=True
    Next
Thoat:
End Sub

leminhthang1322 · Đăng lúc 30/9/2015 17:30

fubi gửi lúc 30/9/2015 17:20
[mw_shl_code=vb,true]
Sub In_chon()
Dim Sosheet As Integer

Bạn ơi, không sử dụng được, bạn hướng dẫn chi tiết hơn được không

Tài khoản		Ghi nhớ?	Quên mật khẩu
Mật khẩu			Đăng ký mới

[hỏi] Code VBA in trang bất kỳ tất cả Sheet Excel

Hãy đăng nhập để có nhiều chức năng hữu dụng hơn và xem ảnh rõ hơn!

Đánh giá

Đánh giá

Diễn đàn đã xem