macro impression

[phil69]

bonjour le forum


j'ai une feuille1 avec 3 zonnes d'impression et je cherche une macro pour pouvoir lancer une des trois impressions (via trois boutons)d'une autre feuille sans ouvrir ma feuille1.jai cherché dans le forum sans succé mis à part cette macro
Option Explicit
Public Fiche As Worksheet, Zone As String
Sub Impression()
' Première feuille
Set Fiche = Sheets("A")
With Fiche
Zone = .Range("A1:B2").Address
End With
ImpressionFiche
End Sup
mais c'a bloque au niveau de ImpressionFiche

voilà si quelq'un a une idée

merci
phil69

 

[Compte Supprimé 979]

Re : macro impression

Salut Phil69,

Tu peux utiliser ce code pour chaque bouton,
il suffit de renommer la SUB et de définir la plage pour chaque !

Sub ImpZone1()
  Application.ScreenUpdating = False
  Sheets("Feuil1").PageSetup.PrintArea = "$A$1:$F$10"
  ThisWorkbook.Sheets("Feuil1").PrintOut Copies:=1, Collate:=True
  Application.ScreenUpdating = True
End Sub

Voilà 😉

 

[phil69]

Re : macro impression

re


merci pour cette rponse rapide ,mais cà bloque au niveau
ThisWorkbook.Sheets("Feuil1").PrintOut Copies:=1, Collate:=True
et je ne connais rien en VBA

phil69

 

[phil69]

Re : macro impression

re

c'est bon cà mache j'avais oublié dz changer le nom de la feuille dans
ThisWorkbook.Sheets("Feuil1").PrintOut Copies:=1, Collate:=True

merci

phil69