• 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.

VBA print 2 ranges op 1 pagina

Status
Niet open voor verdere reacties.

Molovhic

Gebruiker
Lid geworden
27 mei 2016
Berichten
76
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
 
Zonder bestand altijd wat lastig, maar een poging:
Edit:

Inderdaad lastig :(

Voorbeeldje dus................
 
Laatst bewerkt:
Neem kontakt op met die collega.
 
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
 
Je zou het bij elkaar kunnen voegen in tijdelijk werkblad, uitprinten en het tabblad weer verwijderen.
 
Verberg de kolommen B:KA in de code.
 
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
 
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.
 
Je kunt toch met de afdruktitels kolom A standaard meegeven.
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan