J
jimix
Guest
bonjour à tous,
voila je souhaite créer une macro qui puisse imprimer l'arriéré plan ainsi ce qui est tapé sur la feuille. j'ai trouvé sur un topic ce code, mais ce la me mais l'érreur suivante "La Zone d'impression doit avoir été définie !" or j'ai bien défini la zone d'impression.
pour info, je ne connais pas le visual basic. si quelqu'un pouvait m'aider ça serait cool.
ou me donner une autre solution.
par avance merci
voici le code que j'ai pris
Private Sub CommandButton1_Click()
Dim ZoneImpr As Range
If ActiveWorkbook.Saved <> True Then
temp = MsgBox("Voulez-vous sauvegarder votre classeur ?", _
vbOKCancel, "Enregistrement")
If temp = 1 Then ActiveWorkbook.Save
End If
On Error GoTo PasZoneImpr
Set ZoneImpr = Range(ActiveSheet.PageSetup.PrintArea)
On Error Resume Next
ZoneImpr.CopyPicture
ZoneImpr.Clear
ActiveSheet.Paste Destination:=ZoneImpr
ActiveWindow.DisplayGridlines = False
ActiveWindow.SelectedSheets.PrintPreview ' ou .Print Out
ActiveWorkbook.Close Saved = True
Exit Sub
PasZoneImpr:
temp = MsgBox("La Zone d'impression doit avoir été définie !", _
vbCritical, "Opération annulée")
Exit Sub
voila je souhaite créer une macro qui puisse imprimer l'arriéré plan ainsi ce qui est tapé sur la feuille. j'ai trouvé sur un topic ce code, mais ce la me mais l'érreur suivante "La Zone d'impression doit avoir été définie !" or j'ai bien défini la zone d'impression.
pour info, je ne connais pas le visual basic. si quelqu'un pouvait m'aider ça serait cool.
ou me donner une autre solution.
par avance merci
voici le code que j'ai pris
Private Sub CommandButton1_Click()
Dim ZoneImpr As Range
If ActiveWorkbook.Saved <> True Then
temp = MsgBox("Voulez-vous sauvegarder votre classeur ?", _
vbOKCancel, "Enregistrement")
If temp = 1 Then ActiveWorkbook.Save
End If
On Error GoTo PasZoneImpr
Set ZoneImpr = Range(ActiveSheet.PageSetup.PrintArea)
On Error Resume Next
ZoneImpr.CopyPicture
ZoneImpr.Clear
ActiveSheet.Paste Destination:=ZoneImpr
ActiveWindow.DisplayGridlines = False
ActiveWindow.SelectedSheets.PrintPreview ' ou .Print Out
ActiveWorkbook.Close Saved = True
Exit Sub
PasZoneImpr:
temp = MsgBox("La Zone d'impression doit avoir été définie !", _
vbCritical, "Opération annulée")
Exit Sub