Bonjour,
j'ai un fichier que j'imprime sur 2 pages
je voudrais imprimer sur la page 2 le contenu de la colonne C et D de la page1 au début de la page 2
comment procéder svp
voici le fichier
http://cjoint.com/?BIbupRrn5KA
merci
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
MichD
Bonjour,
Pour répondre adéquatement à ta question, il faudrait savoir ce que tu veux imprimer sur la page 1.
Pour imprimer seulement la colonne C:D sur une feuille en masquant les lignes dont leur cellule en colonne C est vide :
'------------------------------------------- Sub test() On Error Resume Next Application.ScreenUpdating = False With Feuil1 .Range("C2:C72").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True .PageSetup.PrintArea = .Range("C3:D72").Address .PrintPreview 'après Test .PrintOut .PageSetup.PrintArea = "" .Range("C2:C72").EntireRow.Hidden = False End With Application.ScreenUpdating = True End Sub '-------------------------------------------
Pour répondre adéquatement à ta question, il faudrait savoir ce que tu veux imprimer
sur la page 1.
Pour imprimer seulement la colonne C:D sur une feuille en masquant les lignes dont leur
cellule en colonne C est vide :
'-------------------------------------------
Sub test()
On Error Resume Next
Application.ScreenUpdating = False
With Feuil1
.Range("C2:C72").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
.PageSetup.PrintArea = .Range("C3:D72").Address
.PrintPreview 'après Test .PrintOut
.PageSetup.PrintArea = ""
.Range("C2:C72").EntireRow.Hidden = False
End With
Application.ScreenUpdating = True
End Sub
'-------------------------------------------
Pour répondre adéquatement à ta question, il faudrait savoir ce que tu veux imprimer sur la page 1.
Pour imprimer seulement la colonne C:D sur une feuille en masquant les lignes dont leur cellule en colonne C est vide :
'------------------------------------------- Sub test() On Error Resume Next Application.ScreenUpdating = False With Feuil1 .Range("C2:C72").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True .PageSetup.PrintArea = .Range("C3:D72").Address .PrintPreview 'après Test .PrintOut .PageSetup.PrintArea = "" .Range("C2:C72").EntireRow.Hidden = False End With Application.ScreenUpdating = True End Sub '-------------------------------------------
