imprimer une feuille sans la mise en page

Option Explicit

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    Cells.Interior.ColorIndex = xlNone
End Sub

Option Explicit
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Feuil1.PageSetup.BlackAndWhite = True
End Sub

Private Sub Workbook_BeforePrint(Cancel As Boolean)
On Error Resume Next 'au cas où la feuille active n'est pas une feuille calcul
ActiveSheet.Copy Before:=ActiveSheet
Set F = ActiveSheet
Cells.Interior.ColorIndex = xlNone
Application.OnTime Now, "Supprime"
End Sub

Public F As Object 'mémorise la feuille

Sub Supprime()
Application.DisplayAlerts = False
On Error Resume Next
F.Delete
Set F = Nothing
End Sub

Option Explicit

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    Cells.Interior.ColorIndex = xlNone
End Sub