Giải quyết msg box (1 người xem)

[GTK-PM]

Private Sub QuickPrint_Click()
Dim i As Long, Fp As Integer, Ep As Integer, tb
tb = MsgBox("Ban co muon in cac phieu, vbYesNo, "tk.com")
If tb = vbYes Then
For i = Fp To Ep
Sheet1.PrintOut: Sheet3.PrintOut: Sheet4.PrintOut: Sheet5.PrintOut: Sheet6.PrintOut: Sheet7.PrintOut: Sheet8.PrintOut: Sheet9.PrintOut: Sheet10.PrintOut: Sheet11.PrintOut
Next i
End If
ED:
End Sub


Nhờ anh chị sửa giúp em đoạn MSGBOX để hiện thông báo trước khi in

 

[GTK-PM]

Sao không thấy ai giúp đỡ vậy (

 

[befaint]

(1)

tb = MsgBox("Ban co muon in cac phieu", vbYesNo, "tk.com")

(2)

 For i = Fp To Ep

Hai biến Fp và Ep chưa đẩy giá trị vào nên mặc định =0.
(3)

ED:

Không rõ làm gì?

 

[chucuoi92]

Private Sub QuickPrint_Click()
...
...
Nhờ anh chị sửa giúp em đoạn MSGBOX để hiện thông báo trước khi in

Để hiện msgbox bạn có thể dùng code này:

Select Case MsgBox("Ban co muon in cac phieu", vbYesNo Or vbQuestion Or vbDefaultButton1, "tk.com")
Case vbYes
Sheet1.PrintOut: Sheet3.PrintOut: Sheet4.PrintOut: Sheet5.PrintOut: Sheet6.PrintOut: Sheet7.PrintOut: Sheet8.PrintOut: Sheet9.PrintOut: Sheet10.PrintOut: Sheet11.PrintOut
Case vbNo
End Select

 

[PacificPR]

Mình tìm được MsgBox bằng tiếng việt của anh Nghĩa bạn tham khảo thêm nha

 

[GTK-PM]

Sub Button2_Click()
Dim Msg As Long
Dim TieuDe As String, NoiDung As String
Dim i As Long, Fp As Integer, Ep As Integer, tb
Fp = Sheet1.Range("I1"): Ep = Sheet1.Range("K1")
TieuDe = VNI("Thoâng baùo")
NoiDung = VNI("Baïn coù muoán in töø phieáu soá " & Fp & " ñeán phieáu soá " & Ep & " khoâng./")
Msg = MyUniMsgBox(TieuDe, NoiDung, msoAlertButtonYesNo, 4, msoAlertDefaultFirst)
If Msg = vbYes Then
For i = Fp To Ep
Sheet1.Range("H1") = i
Sheet1.PrintOut: Sheet3.PrintOut: Sheet4.PrintOut: Sheet5.PrintOut: Sheet6.PrintOut: Sheet7.PrintOut: Sheet8.PrintOut: Sheet9.PrintOut: Sheet10.PrintOut: Sheet11.PrintOut
Next i
End If
End Sub
Sao cứ báo lỗi khi copy sang file khác bạn nhỉ.

 

[PacificPR]

Sub Button2_Click()
Dim Msg As Long
Dim TieuDe As String, NoiDung As String
Dim i As Long, Fp As Integer, Ep As Integer, tb
Fp = Sheet1.Range("I1"): Ep = Sheet1.Range("K1")
TieuDe = VNI("Thoâng baùo")
NoiDung = VNI("Baïn coù muoán in töø phieáu soá " & Fp & " ñeán phieáu soá " & Ep & " khoâng./")
Msg = MyUniMsgBox(TieuDe, NoiDung, msoAlertButtonYesNo, 4, msoAlertDefaultFirst)
If Msg = vbYes Then
For i = Fp To Ep
Sheet1.Range("H1") = i
Sheet1.PrintOut: Sheet3.PrintOut: Sheet4.PrintOut: Sheet5.PrintOut: Sheet6.PrintOut: Sheet7.PrintOut: Sheet8.PrintOut: Sheet9.PrintOut: Sheet10.PrintOut: Sheet11.PrintOut
Next i
End If
End SubView attachment 171106
Sao cứ báo lỗi khi copy sang file khác bạn nhỉ.

Bạn Copy thêm 2 Modules ConvertFont và mdlMsgBox