Tạo nút nhấn để đặt lệnh in các sheet

[hoangtuankhanh]

Các bác ơi giúp em lại lần nữa với. Em đã thử các cách của các bác rồi nhưng không được. Hiện tại em cũng viết một đoạn Code nhưng chẳng chạy gì cả. Làm sao khi nhấn vào nút in thì sẽ in các sheet với số lượng bản in tương ứng. Ví dụ khi nhấn nút in thì Sheet hợp đỗng sẽ in 3 bản hai mặt, Sheet tờ trình sẽ in 1 bản.... Giúp em với nhé! Em gửi kèm cả file của em đây.
Thank kiu cả nhà!

 

[cadafi]

Bạn nên kiểm tra lại tên các sheet trước cái đã.
Trong đoạn code của bạn, sheet đầu tiên mình đã thấy sai

Private Sub CommandButton1_Click()
Dim Msg, Style, Title, Help, Ctxt, Response, MyString
Msg = "Ban co chac chan In khong?"
Style = vbYesNo + vbCritical + vbDefaultButton1
Title = "Thong Bao"
Response = MsgBox(Msg, Style, Title)
If Response = vbYes Then
    Sheets("GDNGPT-TK SO TK(2)").Select [B]===> Đúng ra phải là Sheets("GDNPT TK-SO TK(2)").Select    '   [/B] 
    ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=2, Collate _
        :=True
    Sheets("To trinh vay").Select   [B]'===> Đúng ra phải là Sheets("To trinh vay(1)").Select [/B]
    ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
        :=True
    Sheets("Duyet vay").Select    [B]'===> tên sheet này không tồn tại[/B]
    ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=3, Collate _
        :=True
    Sheets("Hop dong").Select   [B]'===> tên sheet này không tồn tại[/B]
    ActiveWindow.SelectedSheets.PrintOut From:=1, To:=2, Copies:=3, Collate _
        :=True
    Sheets("XNK TSBD").Select     [B]'===> tên sheet này không tồn tại[/B]
    ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=3, Collate _
        :=True
    Sheets("GNTBD").Select   [B]'===> tên sheet này không tồn tại[/B]
    ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=3, Collate _
        :=True
End If

End Sub

 

[ongtrungducmx25]

cái này của bạn nó đối file.xla nhé!

 

[cadafi]

cái này của bạn nó đối file.xla nhé!

Là sao anh, em chưa hiểu?

 

[hoangtuankhanh]

Em quên mất, gửi nhầm cho các bác file cũ, chưa sửa gì cả, nhưng file mới em sửa lại tên rồi cũng không được các bác ơi.

 

[cadafi]

Em quên mất, gửi nhầm cho các bác file cũ, chưa sửa gì cả, nhưng file mới em sửa lại tên rồi cũng không được các bác ơi.

Không được là không được làm sao? Bạn phải nói rõ chứ?!

Mình thấy việc in này đâu có khó. Nếu như việc này cần lặp đi lặp lại nhiều lần, thì bạn chỉ việc bật record macro lên rồi lần lượt làm từng động tác một, in từng sheets nào, bao nhiêu trang. Rồi sau đó vào VBA coi excel ghi lại bằng code như thế nào là xong mà.