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?
Kan de file helaas niet meegeven
Alvast bedankt
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