Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Imprimer

Imprimer

2 réponses
Avatar
syleg35
Bonjour =E0 tous;

Comment faire ?
J'ai fait une macro et un bouton sur le tableau, pour imprim=E9 et je
voudrais forcer les utilisateurs =E0 utiliser que cette macro et ne pas
utiliser l'imprimante dans la barre

Merci

Sub ImprimerFormatA4()
' Pour imprimer au format A4
' S=E9lection plage pour portrait
Range("B2:AH83").Select
ActiveSheet.PageSetup.PrintArea =3D "$B$2:$AH$83"
' Orentation portrait et zoom 75
With ActiveSheet.PageSetup
.Orientation =3D xlPortrait
.Draft =3D False
.Zoom =3D 75
.BottomMargin =3D Application.InchesToPoints(0.393700787401575)
End With
ActiveWindow.SelectedSheets.PrintOut Copies:=3D1, Collate:=3DTrue
With ActiveSheet.PageSetup
' Orentation paysage et zomm 100
End With

With ActiveSheet.PageSetup
.Orientation =3D xlLandscape
.Draft =3D False
.Zoom =3D 100
.BottomMargin =3D Application.InchesToPoints(0.590551181102362)
End With
' S=E9lection plage pour paysage
ActiveSheet.PageSetup.PrintArea =3D "$B$2:$AM$83"
Range("B2").Select
End Sub
Signaler un problème avec ce contenu

2 réponses

Supprimer
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
Avatar
JB
Bonjour,

L'impression doit se faire par macro

Dans un module:

Public impressionAutorisée
Sub Imprime()
Range("A1:B4").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$B$4"
impressionAutorisée = True
ActiveWindow.SelectedSheets.PrintPreview
impressionAutorisée = False
End Sub

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If Not impressionAutorisée Then
MsgBox "Non!"
Cancel = Not impressionAutorisée
End If
End Sub

http://boisgontierjacques.free.fr/fichiers/Editions/ImpressionAuto.xls

JB


On 18 mar, 16:37, wrote:
Bonjour à tous;

Comment faire ?
J'ai fait une macro et un bouton sur le tableau, pour imprimé et je
voudrais forcer les utilisateurs à utiliser que cette macro et ne pas
utiliser l'imprimante dans la barre

Merci

Sub ImprimerFormatA4()
' Pour imprimer au format A4
    ' Sélection plage pour portrait
    Range("B2:AH83").Select
    ActiveSheet.PageSetup.PrintArea = "$B$2:$AH$83"
    ' Orentation portrait et zoom 75
    With ActiveSheet.PageSetup
        .Orientation = xlPortrait
        .Draft = False
        .Zoom = 75
        .BottomMargin = Application.InchesToPoints(0.39370078740 1575)
    End With
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    With ActiveSheet.PageSetup
    ' Orentation paysage et zomm 100
    End With

    With ActiveSheet.PageSetup
        .Orientation = xlLandscape
        .Draft = False
        .Zoom = 100
        .BottomMargin = Application.InchesToPoints(0.59055118110 2362)
    End With
    ' Sélection plage pour paysage
    ActiveSheet.PageSetup.PrintArea = "$B$2:$AM$83"
    Range("B2").Select
End Sub


Avatar
syleg35
Bonjour JB ;

Merci c'était bien sa que je rechercher !

Sa fonctionne et c'est ok

@+


On 18 mar, 17:12, JB wrote:
Bonjour,

L'impression doit se faire par macro

Dans un module:

Public impressionAutorisée
Sub Imprime()
    Range("A1:B4").Select
    ActiveSheet.PageSetup.PrintArea = "$A$1:$B$4"
    impressionAutorisée = True
    ActiveWindow.SelectedSheets.PrintPreview
    impressionAutorisée = False
End Sub

Private Sub Workbook_BeforePrint(Cancel As Boolean)
  If Not impressionAutorisée Then
    MsgBox "Non!"
    Cancel = Not impressionAutorisée
  End If
End Sub

http://boisgontierjacques.free.fr/fichiers/Editions/ImpressionAuto.xls

JB

On 18 mar, 16:37, wrote:



Bonjour à tous;

Comment faire ?
J'ai fait une macro et un bouton sur le tableau, pour imprimé et je
voudrais forcer les utilisateurs à utiliser que cette macro et ne pas
utiliser l'imprimante dans la barre

Merci

Sub ImprimerFormatA4()
' Pour imprimer au format A4
    ' Sélection plage pour portrait
    Range("B2:AH83").Select
    ActiveSheet.PageSetup.PrintArea = "$B$2:$AH$83"
    ' Orentation portrait et zoom 75
    With ActiveSheet.PageSetup
        .Orientation = xlPortrait
        .Draft = False
        .Zoom = 75
        .BottomMargin = Application.InchesToPoints(0.393700787 401575)
    End With
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=Tru e
    With ActiveSheet.PageSetup
    ' Orentation paysage et zomm 100
    End With

    With ActiveSheet.PageSetup
        .Orientation = xlLandscape
        .Draft = False
        .Zoom = 100
        .BottomMargin = Application.InchesToPoints(0.590551181 102362)
    End With
    ' Sélection plage pour paysage
    ActiveSheet.PageSetup.PrintArea = "$B$2:$AM$83"
    Range("B2").Select
End Sub- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -