Udskrivning af kolonne

Hvad mener du med, at de 2 kolonner skal gentages?

Hvis du bare vil have begrænset udskriften til at omfatte en del af dit ark, så marker de 2 kolonner, evt. bare så langt ned, som der er indhold. Filer > Udskriftsområde > Angiv udskriftsområde.

Jeg mener at de 2 kolonner evt. skal optræde 3 gange på en a4 side, så siden er "fyldt" inden den skriver videre på næste side

Nedenstående er ikke testet, men ideen er at fylde et andet ark med værdierne, og skifte kolonne for hver sideskift. Her er kun vist for én kolonne.

Sub test()
    Set target = Worksheets("Ark2").Range("A1")
    i = 0
    For Each c In Worksheets("Ark1").Range("A1:A200")
        target.Value = c.Value
        If c.PageBreak Then
            Set target = target.Cells(1, target.Row + 1)
        Else
            Set target = target.Offset(i)
            i = i + 1
        End If
    Next
End Sub

Bedre sådan her:

Sub test()
    Set target = Worksheets("Ark2").Range("A1")
    i = 0
    For Each c In Worksheets("Ark1").Range("A1:A200")
        target.Offset(i) = c.Value
        If c.PageBreak Then
            Set target = target.Cells(1, target.Row + 1)
            i=0
        Else
            i = i + 1
        End If
    Next
End Sub

og så skal target.Row være target.Column  ...Øv

Får Run-time error '1004'
Kan ikke angive egenskaben PageBreak for klassen Range

Det er ved denne linje .......  If c.PageBreak Then

if c.pagebreak then
skal ændres til
if c.rows(1).pagebreak<>xlPageBreakNone then

pagebreak virker åbenbart kun på ROWS() og COLUMNS()

Når jeg køre Makroen kopier den bare kolonne A på ark1 over til ark2 og derefter sker der intet.
Meningen var at jeg skulle have kolonnen udskrevet, så den fordelte sig "knækkede" på a4 siden, dvs. at der optrådte f.eks 3 kolonder på en side.
markroen ser nu sådan ud:
Sub test()
    Set target = Worksheets("Ark2").Range("A1")
    i = 0
    For Each c In Worksheets("Ark1").Range("A1:A200")
        target.Offset(i) = c.Value
        If c.Columns(1).PageBreak <> xlPageBreakNone Then
            Set target = target.Cells(1, target.Columns + 1)
            i = 0
        Else
            i = i + 1
        End If
    Next
End Sub

Sub test()
    Dim Skift As Variant, R As Long, K As Integer, I As Integer, Antal As Integer, RKN As Variant
    FraArk = "Ark1"    ' Arket hvorfra de 2 kolonner hentes
    TilArk = "Ark2"    ' arket, hvor de skal over til
    Antal = Worksheets(FraArk).HPageBreaks.Count    ' hvor mange sideskift, er der på  fra arket
    For I = 1 To Antal
        RKN = RKN & Worksheets(FraArk).HPageBreaks(I).Location & ";"    ' hvilke rækker
    Next
    Skift = Split(cFull, ";")    'læser rækkenumrene
    R = 1
    K = 1
    For I = 0 To UBound(Skift) - 1
        Worksheets(FraArk).Range("A" & R & ":B" & Skift(I) - 1).Copy Worksheets(TilArk).Cells(1, K)    ' bruger rækkenumrene til at finde data
        R = Skift(I)
        K = K + 3    ' ved 2 sættes kolonnerne helt sammen, ved 2 3 er der en tom imellem
    Next
    Worksheets(TilArk).PrintOut    ' skriver til arket ud
    Worksheets(TilArk).Cells.ClearContents    ' tømmer til arket
End Sub

Havde ik set dette svar, så jeg gør stadigvæk tingene manuelt ;-)
Så en god løsning ville være rart, men ...
Jeg får følgende fejl meddelse:
Can't execute code in break mode.
det sker her:
RKN = RKN & Worksheets(FraArk).HPageBreaks(I).Location & ";"    ' hvilke rækker

har du rettet dette til dine arknavne

  FraArk = "Ark1"    ' Arket hvorfra de 2 kolonner hentes
  TilArk = "Ark2"    ' arket, hvor de skal over til

Can't execute code in break mode.

der skal du trykke på Reset knappen, i kodevinduet, den er lige under Run oppe i menulinjen

Jeg køre på et test ark, så ARK fanerne har standard navne, så der skulle ik være noget at rette.

Har reset, får fejl medl.
Run-time error'9':
Subscript out of range

lukket