Microsoft 365 Créer une macro pour l'impression

[grosduke]

Bonjours à tous, j'aurais besoin de votre aide pour créer une macro qui pourrait imprimer une zone défini en pleine page (une sorte de zoom) sur une seule page et de pouvoir choisir une option d'impression du format papier désiré, ex. A4 et A5.

Merci!

 

[danielco]

Bonjour,

Essaie :

Sub Impression()
  Dim ZoneImpr As Range, Page As String
  On Error Resume Next
  Set ZoneImpr = Application.InputBox("Sélectionnez la zone à imprimer", Type:=8)
  If ZoneImpr Is Nothing Then
    Err.Clear
    Exit Sub
  End If
  On Error GoTo 0
  Page = UCase(InputBox("Taille papier ?"))
  If Page <> "A4" And Page <> "A5" Then
    MsgBox "Erreur de saisie"
    Exit Sub
  End If
  With ActiveSheet.PageSetup
    .FitToPagesWide = 1
    .FitToPagesTall = 1
    If Page = "A4" Then
      .PaperSize = xlPaperA4
    Else
      .PaperSize = xlPaperA5
    End If
  End With
  Selection.PrintOut
End Sub

Cordialement.

Daniel

 

[grosduke]

Merci Daniel mais cela imprime une page blanche. Serait-il possible de déterminer la zone dans la macro, c'est-à-dire $D$4:$F$35 et que le tout s'ajuste en pleine page, merci.

 

[danielco]

Quand tu as la boîte de dialogue "Sélectionnez la zone à imprimer", il faut que tu sélectionnes la plages de cellules à imprimer avec la souris. Sinon, si c'est toujours la plage D4:F35 :

Sub Impression1()
  Dim ZoneImpr As Range, Page As String
  Page = UCase(InputBox("Taille papier ?"))
  If Page <> "A4" And Page <> "A5" Then
    MsgBox "Erreur de saisie"
    Exit Sub
  End If
  With ActiveSheet.PageSetup
    .FitToPagesWide = 1
    .FitToPagesTall = 1
    If Page = "A4" Then
      .PaperSize = xlPaperA4
    Else
      .PaperSize = xlPaperA5
    End If
  End With
  [D4:F35].PrintOut
End Sub

 

[grosduke]

Merci Daniel , tout fonctionne à la merveille.

 

[grosduke]

dernière petite info, pour ajouter le format 11x17, j'ai essayé xlPaperLedger mais il ne le prend pas en charge.

 

[danielco]

je ne sais pas. Ca dépend peut-être de ton imprimante ?

Daniel

 

[grosduke]

non, elle la prend en charge mais c'est mon code qui n'est probablement correct

 

[danielco]

Qu'est-ce que tu as changé ?

Daniel

 

[grosduke]

Else
.PaperSize = xlPaperLedger11x17
Et je l'ai défini également dans If Page <> "A4" And Page <> "11x17" Then

 

[danielco]

Dans l'aide VBA, ils indiquent :

.PaperSize = xlPaperLedger

 

[grosduke]

malheureusement il y a un bogue avec cette commande

 

[danielco]

Quels numéro et message d'erreur ?

Daniel

 

[grosduke]

Il m'indique, erreur de saisie, je vais dans mon document source et la ligne .PaperSize = xlPaperLedger s'affiche

 

[danielco]

Chaud... Essaie d'utiliser "xlPaperTabloid ". J'ai lu que ça pouvait résoudre le problème...

(https://stackoverflow.com/questions...the-papersize-property-of-the-pagesetup-class)

Daniel