L
louloudal
Guest
bonjour au forum,
j'ai une macro qui permet d'imprimer une plage donnée.
Je voudrai savoir
- si il est possible de bloquer une format d'impression (paysage ou portrait)
- si il est possible de donner un en tête à partir de la macro
en gros de demander l'impression avec une mise en page par défaut!!
Merci à tous
ci joint ma macro :
Dim Plage As Range
On Error Resume Next
Set Plage = Application.InputBox('A l'aide de la sourie', 'Sélectionnez la zone à imprimer', Type:=8)
On Error GoTo 0
If Plage Is Nothing Then Exit Sub
Application.Goto Plage
If MsgBox('Voulez-vous imprimer la zone sélectionnée ?', vbYesNo) = vbYes Then
ActiveSheet.PageSetup.PrintArea = Plage.Address
ActiveSheet.PrintOut preview:=True
End If
j'ai une macro qui permet d'imprimer une plage donnée.
Je voudrai savoir
- si il est possible de bloquer une format d'impression (paysage ou portrait)
- si il est possible de donner un en tête à partir de la macro
en gros de demander l'impression avec une mise en page par défaut!!
Merci à tous
ci joint ma macro :
Dim Plage As Range
On Error Resume Next
Set Plage = Application.InputBox('A l'aide de la sourie', 'Sélectionnez la zone à imprimer', Type:=8)
On Error GoTo 0
If Plage Is Nothing Then Exit Sub
Application.Goto Plage
If MsgBox('Voulez-vous imprimer la zone sélectionnée ?', vbYesNo) = vbYes Then
ActiveSheet.PageSetup.PrintArea = Plage.Address
ActiveSheet.PrintOut preview:=True
End If