Imprimer

Le
syleg35
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
' Slection 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.393700787401575)
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.590551181102362)
End With
' Slection plage pour paysage
ActiveSheet.PageSetup.PrintArea = "$B$2:$AM$83"
Range("B2").Select
End Sub
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
JB
Le #5225801
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


syleg35
Le #5191221
Bonjour JB ;

Merci c'était bien sa que je rechercher !

Sa fonctionne et c'est ok

@+


On 18 mar, 17:12, 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.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 -



Publicité
Poster une réponse
Anonyme