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
' 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.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
' Sélection plage pour paysage
ActiveSheet.PageSetup.PrintArea = "$B$2:$AM$83"
Range("B2").Select
End Sub
Vidéos High-Tech et Jeu Vidéo
Téléchargements
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