Kolommen op page break splitsen en naast elkaar zetten op landscape A4

[tonissteiner]

Hallo forumgebruikers,

ik zit met waarschijnlijk een simpele vraag maar kom er zelf niet uit. Ik heb een simpele lijst is 2 kolommen. Ik zou deze graag afdrukken maar zodanig dat de kolommen op een horizontale A4 komen en de kolom aan het pagina einde automatisch naast de ander kolom komt. eventueel met een spatie tussen. Kan dit op een simpele manier of is hier een trucje met een VBA nodig?

In bijlage de file waarover ik het heb. bij het afdrukken zie je dat er 2 pagina's zijn en de rechterzijde van het blad telkens wit is. Deze lege plaats zou ik dus graag opvullen met wat op blad 2 staat.
Als de lijst langer zou worden, natuurlijk automatisch een tweede blad.

Alvast bedankt voor jullie reacties.

mvg,

Stefan


Bekijk bijlage AX Suppliers temp.xlsm

 

[ExcelAmateur]

Wat denk je van kopiëren en plakken?

 

[tonissteiner]

ja dat is een oplossing maar deze lijst kan altijd wijzigen/langer worden. Had het dus graag automatisch gezien. Is maar omdat ik van deze Excel een pdf maak om te verspreiden

toch bedankt voor je oplossing

 

[HSV]

Test het maar eens.

Sub hsv()
Dim lrow As Long
With Sheets("vendors")
 lrow = .HPageBreaks.Item(1).Location.Row
      .Range("A1:B1").Copy .Range("D1")
         With .Cells(lrow, 1).Resize(Range(.Cells(lrow, 1), .Cells(lrow, 1).End(xlDown)).Rows.Count, 2)
          .Copy Range("D2")
          .ClearContents
         End With
         .Columns("D:E").AutoFit
         .PrintPreview
    .Cells(1, 4).CurrentRegion.Offset(1).Copy .Cells(lrow, 1)
    .Columns("D:E").Clear
  End With
End Sub

 

[tonissteiner]

Goede morgen Harry (en anderen),

knap gedaan... zoals altijd. Bedankt. Dit is wat ik wou + eigenlijk het extraatje dat bij het uitvoeren van de macro direct het printvoorbeeld scherm tevoorschijn komt.

Mocht er hier de mogelijkheid bestaan te kunnen doneren naar "Mega Honourable Senior Member" zoals jij, zou ik één van de eersten zijn mijn bijdrage te storten.

Nu kan ik je alleen enorm bedanken. Voor de pasklare oplossing en voor je snelle reactie.

BEDANKT.

mvg,

Stefan