Helpmij.nl
Helpmij.nl
Helpmij.nl
Steun Helpmij.nl! Klik hier     Computerprobleem? Klik hier!

Quote

Weergeven resultaten 1 tot 5 van 5

Onderwerp: VBA Printen

  1. #1
    Member
    Geregistreerd
    29 december 2009
    Vraag is opgelost

    VBA Printen

    Beste,

    Ik heb een document met een tabblad genaamd: Schoolgebouw. In het blad staan diverse gegevens. Vanuit cel R7 is de mogelijkheid om de waarde te wijzigen van 1 t/m 12. Als ik R7 de waarde '1' geef, dan wordt het blad aangepast aan die school. Als ik R7 de waarde '2' geef, dan wijzigt het document en geeft de waarden/uitkomsten van school 2 weer etc..

    Ik ben op zoek naar een macro, die ik wil koppelen aan een button 'Print' zodat alle 12 scholen in een PDF worden geprint als ik op die knop druk.

    Kan dit zonder dat ik een voorbeeld document aan deze vraag koppel?

    Dank alvast.

  2. #2
    Giga Senior
    Verenigingslid
    SjonR's avatar
    Geregistreerd
    10 november 2016
    Locatie
    Zaandam
    Afstand tot server
    ±116 km
    zoiets?

    Printpreview vervangen door printout als je het hebt getest. (Scheelt weer papier ). Range aanpassen naar wens uiteraard.

    Code:
    Sub Sjonr()
    For i = 1 To 12
        Cells(7, 18) = i
        Range("A1:H40").PrintPreview
    Next
    End Sub
    Wat bedoel je eigenlijk met als PDF geprint?

    Als PDF opslaan?

    Code:
    Sub Sjonr()
    For i = 1 To 12
        Cells(7, 18) = i
        Range("A1:H40").ExportAsFixedFormat 0, "School" & i
    Next
    End Sub
    Laatst aangepast door SjonR : 17 mei 2019 om 15:01

  3. #3
    Member
    Geregistreerd
    29 december 2009
    Hiermee bedoel ik inderdaad opslaan als .PDF.

    Ik zie wel dat als ik de VBA aan de Print button koppel, dat hij alle tabbladen aanpast, maar waar wordt de PDF opgeslagen?
    Is het ook mogelijk om vervoglens te kunnen selecteren waar je de pdf wilt opslaan?

  4. #4
    Giga Senior
    Verenigingslid
    SjonR's avatar
    Geregistreerd
    10 november 2016
    Locatie
    Zaandam
    Afstand tot server
    ±116 km
    Standaard wordt het in de map "MIJN DOCUMENTEN" opgeslagen volgens mij, maar zo kan je een map opgeven.

    Code:
    Sub Sjonr()
    For i = 1 To 12
        Cells(7, 18) = i
        Range("A1:H40").ExportAsFixedFormat 0, "C:\test\School" & i
    Next
    End Sub

  5. #5
    Member
    Geregistreerd
    29 december 2009
    Super! Nu werkt hij wel

    Laatste vraag, kan ik ook bij het printen de tabbladen 'Voorblad' en 'Tot.overzicht' hierbij aan toevoegen?
    Dus als ik op de print button druk, dat niet alleen het tabblad 'Schoolgebouw' 12x wordt geprint, maar dat ook het Voorblad en Tot.overzicht hierbij aan toegevoegd worden?

Berichtenregels

  • U mag geen nieuwe vragen starten.
  • U mag niet reageren op berichten.
  • U mag geen bijlagen versturen.
  • U mag uw berichten niet bewerken.
  •  
Helpmij.nl
Helpmij.nl

Helpmij.nl en business

Partners
Sponsoren