Sytse1
Gebruiker
- Lid geworden
- 9 aug 2007
- Berichten
- 584
- Office versie
- miDer
Zoals in de titel staat, ik wil het actieve werkblad printen of als een pdf opslaan onder de naam van het het tabblad.
Nu wordt er geprint of een pdf gemaakt met de naam van de toepassing en niet met de naam van het tabblad.
Op welke wijze kan ik de code aanpassen zodat de print onder de naam van het werkblad wordt geprint of er een pdf van wordt gemaakt
Het bereik is ("A1:AN42")
Nu wordt er geprint of een pdf gemaakt met de naam van de toepassing en niet met de naam van het tabblad.
Code:
With ActiveSheet
.PageSetup.PrintArea = .UsedRange.Address
If MsgBox("Voor Printvoorbeeld kies Ja. Kies Nee voor PDF maken?", vbYesNo, "Maak uw keuze") = vbYes Then
Application.ExecuteExcel4Macro "Show.Toolbar(""Ribbon"",True)"
.PrintPreview
Else
.PrintOut
End If
End With
Het bereik is ("A1:AN42")