imprimer une feuille sans la mise en page

[pascal21]

bonsoir le forum
je cherche le code qui permet d'imprimer une feuille dont les données auront été triées et sans la mise en page (couleurs dans les cellules)
merci
j'ai essayé avec enregistreur de macro mais je n'arrive à rien

 

[JCGL]

Re : imprimer une feuille sans la mise en page

Bonjour à tous,

Peux-tu essayer avec te code :

Option Explicit

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

A placer ici :

A+ à tous

Édition : Salut Pierrot 🙂
​

 

[Pierrot93]

Re : imprimer une feuille sans la mise en page

Bonsoir Pascal, Jean-Claude🙂

une autre solution si tu veux tout de même conserver les couleurs dans le classeur :

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

Attention, ce code chez moi, exécuté pas à pas (touche F8) me plante complètement Excel... Etrange non... Peut être incompatibilité avec l'imprimante !!! Attention à vos fichiers déjà ouverts donc...

bonne soirée
@+

 

[job75]

Re : imprimer une feuille sans la mise en page

Bonsoir pascal21, JCGL et Pierrot,

Dans le même sens que JC, mais sans effacer les couleurs de la feuille.

Dans ThisWorkbook :

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

Dans un Module :

Public F As Object 'mémorise la feuille

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

A+

 

[pascal21]

Re : imprimer une feuille sans la mise en page

bonsoir à tous

Option Explicit

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

ce code fonctionne bien, trop bien même , mais
je ne l'avais pas précisé mais il serait souhaitable que les couleurs reviennent après l'impression
et je n'y avais pas pensé mais ça m'imprime tout le classeur
alors que j'aimerais imprimer uniquement la feuille active soit "tableau de bord" pour le moment
que rajouter au code
euh pour job et pierrot
en fait si je veux supprimer la mise en page , et là c'est mon coté radin qui parle, c'est pour économiser sur l'impression lol!!!!

 

[job75]

Re : imprimer une feuille sans la mise en page

Re,

Je ne comprends pas bien ton message :

je ne l'avais pas précisé mais il serait souhaitable que les couleurs reviennent après l'impression

C'est bien pour ça que j'ai écrit mon code, tu l'as essayé ? Les couleurs sont supprimées sur une feuille ajoutée, pas sur la feuille d'origine !

et je n'y avais pas pensé mais ça m'imprime tout le classeur

Par défaut seule la feuille sélectionnée est imprimée. Pour imprimer tout le classeur, il faut l'avoir décidé.

A+

 

[pascal21]

Re : imprimer une feuille sans la mise en page

bonsoir job
entre temps j'avais essayé ton code qui convient parfaitement et oublier de revenir sur le forum pour t'en remercier
pour ce qui est l'impression de la zone sur une seule page j'ai trouvé dans les options d'impression
bonne soirée