Ouverture en aperçu
M
Bonsoir à tous
Je souhaiterais lancer le fichier directement en aperçu.
Ma macro "imprimer" est celle là. Je souhaiterais avoir les mêmes paramètres.
Sub Imprimer()
Dim d As Integer, startRow As Long, rngPrint As Range
d = Weekday(VBA.Date)
If d > 1 Then
With ActiveSheet
.PageSetup.PrintTitleRows = "$1:$7"
startRow = VBA.Switch(d = 2, 8, d = 3, 27, d = 4, 46, d = 5, 65, d = 6, 84, d = 7, 103)
If d < 7 Then
Set rngPrint = .Cells(startRow, 2).Resize(19, 30)
Else
Set rngPrint = .Cells(startRow, 2).Resize(9, 30)
End If
End With
rngPrint.PrintOut preview:=True
End If
End Sub
Merci à vous
Bonjour,
A la lueur de la question, j'ai peine à croire que tu aies rédigé par toi-même les macros...
Voici une procédure pour afficher l'aperçu :
Sub Preview()
Application.Dialogs(xlDialogPrintPreview).Show
End Sub