Macro que me permita detener impresion en excel vba

Buenas noches, deseándole existo a la pagina y a sus colaboradores del mismo, quisiera nuevamente molestar su atención a este problema.

Genero un reporte desde esta instrucción y lo que deseo es que al presionar la tecla de cancelar impresión debería cancelar pero no lo hace por consiguiente hace la impresión dicho reporte

Sub PENSI()

For f = 8 To 8

Sheets("BOLETA PENSIONISTA").Select

Range("A1:H70").Select

Range("CODIGO3") = Sheets("PENSIONISTA").Cells(f, 1)

Application.Dialogs(xlDialogPrinterSetup).Show 'Abre el formulario para seleccionar y configurar la impresora

' ActiveWindow.SelectedSheets.PrintOut Copies:=1

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _

IgnorePrintAreas:=False

Sheets("Hoja1").Select

Range("C15").Select

Next

End Sub