Giúp em Không thoát được Lệnh in khi đã Cancle trong hàm with (2 người xem)

[lightd]

Cac anh chị ơi giúp em gấp với ạ .
Em đã ấn Cancle nhưng vẫn cứ thực hiện lệnh in
" With Application.ThisWorkbook
.Worksheets(printar).PrintOut , , , , Application.Dialogs(xlDialogPrinterSetup).Show
If reponse = vbCancel Then Exit Sub
End With "
Cảm ơn các anh

 

[Quang_Hải]

Cac anh chị ơi giúp em gấp với ạ .
Em đã ấn Cancle nhưng vẫn cứ thực hiện lệnh in
" With Application.ThisWorkbook
.Worksheets(printar).PrintOut , , , , Application.Dialogs(xlDialogPrinterSetup).Show
If reponse = vbCancel Then Exit Sub
End With "
Cảm ơn các anh

Vẫn in ra là đúng rồi vì câu lệnh "Application.Dialogs(xlDialogPrinterSetup).Show" sẽ hiển thị các máy in để bạn chọn. Còn câu lệnh PrintOut là câu lệnh in ra

 

[lightd]

Vẫn in ra là đúng rồi vì câu lệnh "Application.Dialogs(xlDialogPrinterSetup).Show" sẽ hiển thị các máy in để bạn chọn. Còn câu lệnh PrintOut là câu lệnh in ra

Mình ấn cancel Rồi vẫn in , Mình muốn hiện hiện lệnh Printer diaglog ra nhưng khi người dùng đổi ý không in nữa thì ấn cancle màn hình hiện về ban đầu

 

[PacificPR]

Cac anh chị ơi giúp em gấp với ạ .
Em đã ấn Cancle nhưng vẫn cứ thực hiện lệnh in
" With Application.ThisWorkbook
.Worksheets(printar).PrintOut , , , , Application.Dialogs(xlDialogPrinterSetup).Show
If reponse = vbCancel Then Exit Sub
End With "
Cảm ơn các anh

Bạn thử cái này xem sao:

Sub Intrang()
Dim Thongbao
With Application.ThisWorkbook
Thongbao = MsgBox("Ban co muon in trang tinh nay khong", vbOKCancel)
If Thongbao = vbCancel Then Exit Sub
.PrintOut , , , , Application.Dialogs(xlDialogPrinterSetup).Show
End With
End Sub

 

[lightd]

Cái này cancel trước daiglog , sau khi hiện dialog người dùng ấn cancel in thì nó vẫn in ạ

bạn thử cái này xem sao:

 

[befaint]

Cái này cancel trước daiglog , sau khi hiện dialog người dùng ấn cancel in thì nó vẫn in ạ

Mỗi cái một việc.
Application.Dialogs(xlDialogPrinterSetup).Show để làm gì?

 

[lightd]

để người dùng có thể chọn máy in hoặc in qua pdf ảo bác ơi

Mỗi cái một việc.
Application.Dialogs(xlDialogPrinterSetup).Show để làm gì?

 

[VetMini]

printersetup trả vè tên máy in. Nếu cancel thì lệnh in dùng máy in mặc định. Vì vậy nó vẫn in như thường.
Muốn cancel mà nó bỏ không in thì phải xét TRƯỚC khi gọi PrintOut

If Application.Dialogs(xlDialogPrinterSetup).Show <> vbCancel Then .PrintOut

đại khái vậy

 

[PacificPR]

Cái này cancel trước daiglog , sau khi hiện dialog người dùng ấn cancel in thì nó vẫn in ạ

Thử lại với cái này xem sao bạn

Sub InTrang()
Dim HT
HT = Application.Dialogs(xlDialogPrinterSetup).Show
If HT = True Then
ActiveWindow.SelectedSheets.PrintOut
Else
Exit Sub
End If
End Sub

 

[sealand]

Tôi nghĩ phương án bác Vet Mini đề xuất là gọn gàng nhất, có lẽ bác ấy không cụ thể ra nên bạn không để ý.

Bạn thay cả đoạn:

With Application.ThisWorkbook
    .Worksheets(printar).PrintOut , , , , Application.Dialogs(xlDialogPrinterSetup).Show
   If reponse = vbCancel Then Exit Sub
End With

bằng 1 dòng sau:

If Application.Dialogs(xlDialogPrinterSetup).Show Then Worksheets("printar").PrintOut

 

[lightd]

Cảm ơn bác rất nhiều

Tôi nghĩ phương án bác Vet Mini đề xuất là gọn gàng nhất, có lẽ bác ấy không cụ thể ra nên bạn không để ý.

Bạn thay cả đoạn:

With Application.ThisWorkbook
    .Worksheets(printar).PrintOut , , , , Application.Dialogs(xlDialogPrinterSetup).Show
   If reponse = vbCancel Then Exit Sub
End With

bằng 1 dòng sau:

If Application.Dialogs(xlDialogPrinterSetup).Show Then Worksheets("printar").PrintOut

 

[lightd]

Công nhận câu code của bác rất gọn và tối ưu cảm ơn bác

Tôi nghĩ phương án bác Vet Mini đề xuất là gọn gàng nhất, có lẽ bác ấy không cụ thể ra nên bạn không để ý.

Bạn thay cả đoạn:

With Application.ThisWorkbook
    .Worksheets(printar).PrintOut , , , , Application.Dialogs(xlDialogPrinterSetup).Show
   If reponse = vbCancel Then Exit Sub
End With

bằng 1 dòng sau:

If Application.Dialogs(xlDialogPrinterSetup).Show Then Worksheets("printar").PrintOut