Hỏi : Nếu muốn mỗi khi ấn vào nút Ptint thì hiện ra thông báo:

[PHONGGANHHAO]

Private Sub CommandButton2_Click()ActiveSheet.PageSetup.PrintArea = "A1:C41"ActiveWindow.SelectedSheets.PrintOut
End Sub

Hỏi : Nếu muốn mỗi khi ấn vào nút Print thì hiện ra thông báo:
Bạn có muốn in hay không? CÓ – KHÔNG
Nhờ mấy anh giúp đỡ

 

[ndu96081631]

Private Sub CommandButton2_Click()ActiveSheet.PageSetup.PrintArea = "A1:C41"ActiveWindow.SelectedSheets.PrintOut
End Sub

Hỏi : Nếu muốn mỗi khi ấn vào nút Print thì hiện ra thông báo:
Bạn có muốn in hay không? CÓ – KHÔNG
Nhờ mấy anh giúp đỡ

Thế bạn có biết xài MsgBox không? Nếu biết, cứ việc chèn vào đầu code là được rồi, thông báo gì mà chẳng được

 

[Hai Lúa Miền Tây]

Chèn thử đoạn sau vào đầu code trên

If MsgBox("B" & ChrW(7841) & "n có mu" & ChrW(7889) & "n in hay không? CÓ " & _
       ChrW(8211) & " KHÔNG", vbYesNo, "Có/Không?") = vbNo Then Exit Sub

 

[ndu96081631]

Chèn thử đoạn sau vào đầu code trên

If MsgBox("B" & ChrW(7841) & "n có mu" & ChrW(7889) & "n in hay không? CÓ " & _
       ChrW(8211) & " KHÔNG", vbYesNo, "Có/Không?") = vbNo Then Exit Sub

MsgBox có hiện tiếng Việt được đâu đồng chí?

 

[Hoàng Trọng Nghĩa]

MsgBox có hiện tiếng Việt được đâu đồng chí?

Sao không dùng Msgbox của hệ thống cho đẹp và có dấu tiếng Việt luôn:

Private Sub CommandButton1_Click()
    Dim a As Long
    a = Application.Assistant.DoAlert("Có/Không?", "B" & ChrW(7841) & "n có mu" & ChrW(7889) & "n in hay không? CÓ " & _
    ChrW(8211) & " KHÔNG", msoAlertButtonYesNo, msoAlertIconInfo, msoAlertDefaultFirst, msoAlertCancelDefault, False)
    If a = vbYes Then
        MsgBox "yes"
    Else
        MsgBox "No"
    End If
End Sub

 

[PHONGGANHHAO]

Sao nó không In??? Chỉ hiện bảng thông báo thôi. Vui ,lòng chỉ giúp

Private Sub CommandButton1_Click()
Dim a As Long
a = Application.Assistant.DoAlert("Có/Không?", "B" & ChrW(7841) & "n có mu" & ChrW(7889) & "n in hay không? CÓ " & _
ChrW(8211) & " KHÔNG", msoAlertButtonYesNo, msoAlertIconInfo, msoAlertDefaultFirst, msoAlertCancelDefault, False)
If a = vbYes Then
MsgBox "yes"
Else
MsgBox "No"
End If
End Sub ​

 

[Hai Lúa Miền Tây]

Sao nó không In??? Chỉ hiện bảng thông báo thôi. Vui ,lòng chỉ giúp

Private Sub CommandButton1_Click()
Dim a As Long
a = Application.Assistant.DoAlert("Có/Không?", "B" & ChrW(7841) & "n có mu" & ChrW(7889) & "n in hay không? CÓ " & _
ChrW(8211) & " KHÔNG", msoAlertButtonYesNo, msoAlertIconInfo, msoAlertDefaultFirst, msoAlertCancelDefault, False)
If a = vbYes Then
MsgBox "yes"
Else
MsgBox "No"
End If
End Sub
​

Không in là phải rồi, bạn phải chèn code bạn vào thay thế cái MsgBox "yes" mới được.