Private Sub Workbook_BeforePrint(Cancel As Boolean)
    Dim wshNew As Worksheet
    Dim wshActive As Worksheet
    Dim bDisplayAlerts As Boolean

    On Error GoTo ErrorHandler

    bDisplayAlerts = Application.DisplayAlerts
    Application.EnableEvents = False
    Cancel = True
    
    Set wshActive = ActiveWorkbook.ActiveSheet

'   скопировать лист в самый конец книги
    wshActive.Copy _
       after:=ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count)
    
    Set wshNew = ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count)

'   удалить значения из ненужных ячеек (заменить на свои значения)
    wshNew.Range("B1:B20").ClearContents

'   вывести на печать
    wshNew.PrintOut
'    wshNew.PrintPreview

    wshActive.Select
    
'   удалить созданную копию
    Application.DisplayAlerts = False
    ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count).Delete
    
ErrorHandler:
    Application.DisplayAlerts = bDisplayAlerts
    Application.EnableEvents = True
End Sub