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

Quote

Weergeven resultaten 1 tot 11 van 11

Onderwerp: VBA print 2 ranges op 1 pagina

  1. #1
    Vraag is opgelost

    VBA print 2 ranges op 1 pagina

    Hoi

    Mijn collega heeft er voor gezorgd dat ik 2 ranges krijg met VBA (ken zelf niets van VBA).
    Echter als ik dit afdruk, doet hij dit op 2 pagina's.

    Zou iemand mij op weg kunnen helpen wat ik moet doen voor dit op 1 pagina te kunnen afdrukken?

    Code:
    Sub Test2()
       Dim ws As Worksheet
        Dim rng1 As Range
        Dim RangeA As Range
        Dim RangeB As Range
        
        Set ws = Sheets("PICKING")
        Set rng1 = ws.Columns("A:A").Find("*", ws.[a1], xlValues, , xlByRows, xlPrevious)
        Set RangeA = Range("A1", rng1.Address(0, 0))
        Set RangeB = Range("KB1", "KD" & Mid(rng1.Address(0, 0), 2))
    
        With ActiveSheet.PageSetup
            .PrintArea = Union(RangeA, RangeB).Address
            .Zoom = False
            .FitToPagesTall = 1
            .FitToPagesWide = 1
        End With
        ActiveWindow.SelectedSheets.PrintPreview
        
    End Sub
    Kan de file helaas niet meegeven

    Alvast bedankt

  2. #2
    Tera Honourable Senior Member edmoor's avatar
    Geregistreerd
    8 september 2000
    Locatie
    Zuid-Holland
    Quote Origineel gepost door Molovhic Bekijk Bericht
    Kan de file helaas niet meegeven
    Het is altijd mogelijk een goed gelijkend voorbeeld te plaatsen.
    "Hardware: The parts of a computer system that can be kicked. "
    Op rechtstreekse vragen via email reageer ik niet. Daar is het forum voor.
    Lees ook: http://www.helpmij.nl/forum/announcement.php?f=5

  3. #3
    Mega Senior
    Verenigingslid
    SjonR's avatar
    Geregistreerd
    10 november 2016
    Locatie
    Zaandam
    Afstand tot server
    ±116 km
    Zonder bestand altijd wat lastig, maar een poging:
    Edit:

    Inderdaad lastig

    Voorbeeldje dus................
    Laatst aangepast door SjonR : 17 mei 2018 om 15:10

  4. #4
    Giga Honourable Senior Member
    Verenigingslid

    Geregistreerd
    12 juni 2008
    Neem kontakt op met die collega.
    VBA voor smarties
    VBA is een taal die je moet leren met een grammatica- en een woordenboek.

    http://www.helpmij.nl/forum/announcement.php?f=5
    Plaats svp geen bestanden op andere sites; nadat het bestand daar verwijderd is wordt een forumdraad onbegrijpelijk voor anderen.

  5. #5
    Senior Member lam201's avatar
    Geregistreerd
    23 augustus 2007
    Bij mijn weten is dit niet mogelijk.
    Excel zal verschillende print ranges altijd op verschillende pagina's afdrukken.

    Je zou bij de printerinstellingen kunnen kijken (Crtl + P --> printer eigenschappen).
    misschien vind je daar een instelling 'meerdere pagina's op één vel afdrukken'.
    Wellicht dat dit de gewenste uitkomst biedt.

    Lambert

  6. #6
    Mega Senior
    Verenigingslid
    SjonR's avatar
    Geregistreerd
    10 november 2016
    Locatie
    Zaandam
    Afstand tot server
    ±116 km
    Je zou het bij elkaar kunnen voegen in tijdelijk werkblad, uitprinten en het tabblad weer verwijderen.

  7. #7
    Giga Honourable Senior Member HSV's avatar
    Geregistreerd
    18 juli 2008
    Verberg de kolommen B:KA in de code.
    ____________
    Met vriendelijke groet,
    Harry

    Lag nooit om de keuzes van dien vraauw, bist ter zulf aine van....
    (Grunnegs-Gronings)

  8. #8
    Hoi

    Bestandje komt er nog aan vandaag (wel een simpelere versie)

    Wat verbergen van kolommen betreft, hier wil ik niet mee werken, dit had ik in eerste instantie
    en vermits er een aantal gegroupeerde kolommen inzitten klapte deze naderhand mee open.

    Een extra sheet zou idd ook een oplossing zijn, maar de file is zo al belastend, dus alle extra
    data wil ik proberen te vermijden.

    Mss wat kort door de bocht, maar is er dan geen optie om 2 ranges naar 1 printout te sturen?
    Of dat de knop mij naar de printerinstellingen stuurt zodat ik dit nog eventueel zelf kan aanduiden?

    Mvg

  9. #9
    vba.xlsm

    Bedoeling is dus om kolom A en KB,KC,KD tesamen langst elkaar te krijgen op 1 pagina,
    zo dat de resultaten naast hun namen staan

  10. #10
    Giga Honourable Senior Member HSV's avatar
    Geregistreerd
    18 juli 2008
    Wat is er mis om de kolommen net voor de print te verbergen met een macro en daarna weer zichtbaar te maken.
    Zo simpel kan het zijn.
    ____________
    Met vriendelijke groet,
    Harry

    Lag nooit om de keuzes van dien vraauw, bist ter zulf aine van....
    (Grunnegs-Gronings)

  11. #11
    Je kunt toch met de afdruktitels kolom A standaard meegeven.
    Laatst aangepast door TitaTovenaar : 18 mei 2018 om 14:09

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