[Nhờ chỉnh code] Code in nhanh

Mình có code in nhanh và file mẫu như đính kèm
Vấn đề: Khi in, nó cứ nhảy thông báo máy in cho từng lượt in (việc này nếu in ảo thì hơi bất tiện)
Bài toán: Khi nhấn lệnh Print thì sẽ in toàn bộ, và chỉ hiện thông báo cho lần đầu tiên.
Nhờ các bạn chỉnh sửa cho mình nhé !Hướng dẫn file ví du: Nhấn lệnh Print hoặc View / Quét chọn số thứ tự tại cột A / Ok
Code:

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

Sub PrintPreview()
Dim rng As Range
On Error Resume Next
Set rng = Application.InputBox( _
"Vui long quet chon vung co so thu tu can in " & _
    vbNewLine & vbNewLine & vbNewLine & _
    vbNewLine & "cot A Sheet 'thong tin'  ", "Chon so thu tu", Type:=8)
On Error GoTo 0
If Not rng Is Nothing Then
  For Each rng In rng
    Range("m8") = rng.Value
    ' neu ban muon in luon khong can xem lai thi thay PrintPreview bang PrintOut
    If Range("a8").Value <> "" Then ActiveWindow.SelectedSheets.PrintPreview
  Next rng
Else
  MsgBox "Ban da khong chon in"
End If
End Sub
Sub PrintOut()
Dim rng As Range
On Error Resume Next
Set rng = Application.InputBox( _
"Vui long quet chon vung co so thu tu can in " & _
    vbNewLine & vbNewLine & vbNewLine & _
    vbNewLine & "cot A Sheet 'thong tin'  ", "Chon so thu tu", Type:=8)
On Error GoTo 0
If Not rng Is Nothing Then
  For Each rng In rng
    Range("m8") = rng.Value
    ' neu ban muon in luon khong can xem lai thi thay PrintPreview bang PrintOut
    If Range("a8").Value <> "" Then ActiveWindow.SelectedSheets.PrintOut
  Next rng
Else
  MsgBox "Ban da khong chon in"
End If
End Sub

Vidu 1.xlsm (20.94 KB, Lượt tải về: 334)

29/8/2015 11:25 Tải lên

Click to download

1./ Chưa gán macro cho 2 nút "Xem" và "In"
2./ Xem hoặc In vẫn bình thường, chỉ trả lời 1 lần đầu tiên trong input box thôi mà.
3./ Cần thêm bẩy lỗi trong code: khi không chọn cell mà bấm OK nó báo lỗi, chỉ khi bấm cancel thì mới có hộp thông báo "Ban da khong chon in". Mà cũng không cần đâu, bỏ đoạn "Type:=8" trong đoạn code Set rng = ... sẽ hết lỗi, code chổ đó như sau:

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

Set rng = Application.InputBox( _
"Vui long quet chon vung co so thu tu can in " & _
    vbNewLine & vbNewLine & vbNewLine & _
    vbNewLine & "cot A Sheet 'thong tin'  ", "Chon so thu tu")

Mình thấy cái vụ in ảo này khó, bởi mỗi tên file phải khác nhau mà.

tranhoe gửi lúc 29/8/2015 17:04
1./ Chưa gán macro cho 2 nút "Xem" và "In"
2./ Xem hoặc In vẫn bình thường, chỉ trả lời  ...

Hi, Cảm ơn đồng chí !Code ban đầu đã hỗ trợ phần nào công việc của mình.
Tuy nhiên có vấn đề nữa là Khi nhấn "Print" ngoài hộp thoại như ban đầu, mình muốn có thêm một hộp thoại khai báo cho máy in như cách in thông thường (Chọn máy in, khổ giấy, số lượng,...)
Đồng chí xem và chỉnh sửa giúp mình nhé !

vantuan18nd gửi lúc 31/8/2015 16:46
Hi, Cảm ơn đồng chí !Code ban đầu đã hỗ trợ phần nào công việc của mình.
Tuy nhi ...

Xài vầy đi bạn!
Copy of Vidu 1-1.xlsm (44.89 KB, Lượt tải về: 269)

1/9/2015 14:18 Tải lên

Click to download
Tác giả Phạm Duy Long