Bouton imprimer avec une section précise
Résolu
Spepin
Messages postés
30
Date d'inscription
Statut
Membre
Dernière intervention
-
Spepin Messages postés 30 Date d'inscription Statut Membre Dernière intervention -
Spepin Messages postés 30 Date d'inscription Statut Membre Dernière intervention -
Je veux faire un bouton imprimer, avec une sélection précise exemple colonne a;b;g;h de la ligne 14 à 60.
en se moment j'ai fai; mais sa fonctionne pas. Merci d'avance
Sub Imprimer2()
'
' Imprimer2 Macro
'
Range("A15:B60").Select
ActiveWindow.SmallScroll Down:=-32
Range("A14:B60").Select
ActiveWindow.SmallScroll Down:=-24
Range("A14:B60,F14:H60").Select
Range("F14").Activate
ActiveWindow.SmallScroll Down:=-26
en se moment j'ai fai; mais sa fonctionne pas. Merci d'avance
Sub Imprimer2()
'
' Imprimer2 Macro
'
Range("A15:B60").Select
ActiveWindow.SmallScroll Down:=-32
Range("A14:B60").Select
ActiveWindow.SmallScroll Down:=-24
Range("A14:B60,F14:H60").Select
Range("F14").Activate
ActiveWindow.SmallScroll Down:=-26
A voir également:
- Bouton imprimer avec une section précise
- Journal de naissance gratuit a imprimer - Télécharger - Histoire & Religion
- Comment imprimer en a5 - Guide
- Imprimer tableau excel sur une page - Guide
- Bouton reinitialisation pc - Guide
- Comment faire une capture d'écran sur un samsung sans bouton ? - Guide
2 réponses
Bonjour,
Voici 2 propositions, une avec saisie de la plage à imprimer dans une boîte de dialogue, une autre avec sélection de la plage avec la souris
Cdlt
Voici 2 propositions, une avec saisie de la plage à imprimer dans une boîte de dialogue, une autre avec sélection de la plage avec la souris
Sub Imprimer1() 'méthode par saisie de la plage à imprimer
Set Plage = Application.InputBox("saisissez la plage à imprimer sous le format ""A10:G50"" ?", "Plage à imprimer", , , , , , 8)
Plage.Select
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,1,,,TRUE,,FALSE)"
End Sub
Sub Imprimer2() 'méthode par sélection de la plage à imprimer
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,1,,,TRUE,,FALSE)"
End Sub
Cdlt