Afdrukbereik formule

[Maik]

Ik werk met een excel werkblad wat telkens een andere lengte heeft, ik ben op zoek naar de formule om het afdrukbereik automatisch in te laten stellen.
De af te drukken kolommen zijn B t/m M de lengte van het blad loopt tot en met de laatste gevulde cel in kolom B.

Op het forum is al het een en ander geschreven over de formule "verschuiving" maar ik kom er tot op heden nog niet uit.

Maik

 

[Demeter]

Probeer deze eens op je achter je werkblad.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    PageSetup.PrintArea = "$B$1:$M$" & Range("B" & Rows.Count).End(xlUp).Row
    
End Sub

Iedere keer als je een cel verander wordt je bereik berekend.


Groet,
Ferenc

 

[Maik]

Dag Ferenc,

Bedankt voor je snelle reactie, ik heb de code achter het werkblad gehangen.
Het afdrukbereik wordt echter niet aangepast.

Maik

 

[Wigi]

Bij mij werkt het wel.

Leg eens uit waar je de code geplakt hebt.

 

[Wigi]

Ik zou wel een Workbook_BeforePrint Event gebruiken, Ferenc, lijkt me beter dan het afdrukbereik in te stellen bij elke keer dat je een andere cel selecteert.

 

[Maik]

Heb de code getest in een leeg werkblad en hij werkt inderdaad uit de kunst.

In mijn bestand werkt het echter (nog) niet, de informatie op het desbetreffende werkblad komt daar via een kopieeeraktie middels een macro.
Deze macro lijkt de boel in de weg te zitten, hij hikt op de regel ActiveSheet.Paste

Sheets("KOPIE MEMO").Select
Cells.Select
Selection.Copy
Sheets("M E M O").Select
Cells.Select
ActiveSheet.Paste
Range("A6").Select

 

[Wigi]

Doe dit eens ipv van bovenstaande code:

Sheets("KOPIE MEMO").Cells.Copy Sheets("M E M O").Cells(1)

Wigi

 

[Maik]

Het werkt.
Denk je dat het mogelijk is om op de een of andere manier van te voren aan te geven op welk punt er overgegaan moet worden op de volgende pagina? bv door een bepaalde code op het werkblad mee te geven op het (de) punt(en) waar er overgegaan moet worden naar de volgende pagina(s).

Groet,
Maik

 

[Wigi]

Het werkt.
Denk je dat het mogelijk is om op de een of andere manier van te voren aan te geven op welk punt er overgegaan moet worden op de volgende pagina? bv door een bepaalde code op het werkblad mee te geven op het (de) punt(en) waar er overgegaan moet worden naar de volgende pagina(s).

Groet,
Maik

Je kan een pagina-einde instellen als je wil.

 

[Maik]

Een pagina-einde instellen lijkt de oplossing, er werken echter meerdere mensen met het bestand, daarom zou het geweldig zijn als e.e.a. automatisch zou kunnen.

In ieder geval bedankt voor alle hulp.

Groet,
Maik

 

[Wigi]

Stel een pagina-einde in en neem die handeling op met de macro recorder. Pas daarna de code aan om het variabel en meer algemeen te maken.

 

[Maik]

De macro geeft hetvolgende aan:

Rows("51:51").Select
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
ActiveWindow.SmallScroll Down:=18
Rows("61:61").Select
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
ActiveWindow.SmallScroll Down:=-33
Range("A1").Select
End Sub

Is het mogelijk om ("51:51") en("61:61") te vervangen door waardes uit een cel b.v. A1 en A2?

 

[Wigi]

Rows(Range("A1")).Select
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
ActiveWindow.SmallScroll Down:=18
Rows(Range("A2")).Select
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
ActiveWindow.SmallScroll Down:=-33
Range("A1").Select
End Sub

Wigi

 

[RB_online]

Probeer het volgende eens

Range("M65536").End(xlUp).Offset(0, 0).Select
Names.Add Name:="eind", RefersTo:=ActiveCell
ActiveSheet.PageSetup.PrintArea = "$B$1:eind"  'met deze 3 regels wordt het variabele afdrukbereik bepaald
 ActiveWindow.SelectedSheets.PrintOut Copies:=1,  Collate:=True

René

 

[Maik]

Maandag pas weer op de zaak, kan het dan pas proberen.
Bedankt allemaal.
Maik