Printen van bepaalde gegevens.

[Dokman]

Hallo,

ik wil graag kunnen printen en dan bepaalde kolommen. En de lengte van de kolommen kunnen telkens verschillen.
Heb en foto bij gevoegd. Ik wil kolom G tot AB printen. De lengte is nu 21 regels, maar kunnen er ook meer of minder zijn.

En dan in landscape en zo groot mogelijk op 1 A4.

Gebruik nu deze code, maar dan stopt bij bij regel nummer 60 en dan komt er af en toe ook en leeg papiertje mee.

Sub Print_Ja()

 With ActiveSheet
        .PageSetup.PrintArea = "$G$1:$AB$60"
        .PageSetup.Orientation = xlLandscape
        .PageSetup.Zoom = False
        .PageSetup.FitToPagesTall = 1
        .PageSetup.FitToPagesWide = 1
        .PrintOut , Copies:=1
    End With
End Sub

 

[emields]

mooie foto maar daar zijn we niets mee

 

[HSV]

Ik wel.

Je mag kiezen uit een van de twee.

.PageSetup.PrintArea = range("g1", cells(rows.count, 28).end(xlup)).address
.PageSetup.PrintArea = range("g1", cells(rows.count, 7).end(xlup)).resize(, 20).address

 

[Dokman]

Ik wel.

Je mag kiezen uit een van de twee.

.PageSetup.PrintArea = range("g1", cells(rows.count, 28).end(xlup)).address
.PageSetup.PrintArea = range("g1", cells(rows.count, 7).end(xlup)).resize(, 20).address

Dank je wel voor het helpen. Het werkt.