• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

printen blad met bladnaam

Status
Niet open voor verdere reacties.
Sytse1

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.
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
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")
 
Ik ben een stapje verder met de volgende vba.
Code: 
Dim saveLocation As String
MName = ActiveSheet.Name & ".pdf"
saveLocation = ActiveWorkbook.Path & "\" & MName
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, filename:=saveLocation
Alleen bij de laatste regel krijg ik de foutmelding dat er niet is opgeslagen?
foutmelding.jpg
De naam van het tabblad wordt in Mname gezet.
Het path is waar de toepassing staat.
De pdf moet daar ook worden opgeslagen.
Iemand een idee waarom er niet wordt opgeslagen?
 
Laatst bewerkt:
Dit is het pad waar het het workbook staat.
In dit geval d:\pirtek.
Dit heb ik ook uitgelezen en het staat er ook correct in.
 
Laatst bewerkt:
Heb je toevallig nog een werkboek openstaan die niet is opgeslagen en die actief is?

Maak gebruik van Thisworkbook.Path i.p.v. ActiveWorkbook.Path.
Kan daar geen verwarring over onstaan.
 
HSV, ga ik wijzigen.
De opdracht komt vanuit het openstaande actieve workbook.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan