printen zonder formules

[sph]

Hoe print ik bij een formulier van 500 rijen met in elke rij 1 formule alleen de ingevulde cellen.
Dus de rijen met alleen formules moeten geskipt worden.

Sub ORDERPRINT()
'
' ORDERPRINT Macro
'

'
    Sheets("ORDERLIJST").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
    Sheets("VERZAMELLIJST").Select
End Sub

 

[HSV]

Met crossposting is niemand gediend.
https://www.worksheet.nl/forumexcel/showthread.php?t=88141

 

[sph]

Duidelijk HSV.
Iemand een idee hoe ik bovenstaand probleem oplos?
Zit er al dagen mee te knooien maar krijg het niet voor elkaar om een blad te printen waarbij de blanco`s overgeslagen worden.
Het zou heel mooi zijn als iemand mij hiermee helpen kan.

 

[OctaFish]

Filteren op niet-lege cellen/rijen?

 

[sph]

Ik had een voorbeeld geplaatst in mijn crosspost.
Probeer hem hier neer te zetten.
Openen duurt wel wat langer.
Maar Octafish, wil je hierin misschien laten zien wat je bedoelt?

PAKLIJSTwt.xlsm

In werkblad [VERZAMELLIJST] in het rood het aantal regels invullen.
Dan verschijnt in werkblad [ORDERLIJST] dit aantal regels.
Deze moeten dan met de printknop geprint worden.

 

[sph]

Ik ben er inmiddels voor een gedeelte achter.
Ik heb met een formule geteld hoeveel rijen (XXX; volgens waarde in cel $M$3) er te printen zijn, en de kolommen zijn standaard A t/m H.
Dus nu moet ik een formule hebben die het blad print van A1 t/m H(XXX)??

 

[sph]

Sub PRINTORDERLIJST()

Sheets("VERZAMELLIJST").Select
    Dim t As Range
    Dim ToCell As String
    ToCell = Range("M3").Value
    Set t = Range(ToCell)
Sheets("ORDERLIJST").Select
    ActiveSheet.PageSetup.PrintArea = Range("A1", t).Address
Sheets("VERZAMELLIJST").Select

End Sub

In werkblad [VERZAMELLIJST] cel [M3] staat "H38"
In werkblad [ORDERLIJST] wil ik nu een print van A1:H38

Wat doe ik fout?

 

[sph]

Ben weer een stap verder,
Heb in ["VERZAMELLIJST"] de printknop
Heb NU in ["ORDERLIJST"] de code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim f As Range
Dim t As Range
Dim FromCell As String
Dim ToCell As String
FromCell = Range("K2").Value
ToCell = Range("K1").Value

Set f = Range(FromCell)
Set t = Range(ToCell)

ActiveSheet.PageSetup.PrintArea = Range(f, t).Address


End Sub

Hij print nu idd de ingestelde range, maar moet eerst fysiek naar [ORDERLIJST] voordat de veranderingen plaatsvinden.
Met de functie 'macro opnemen' en dan fysiek naar [ORDERLIJST] gaan werkt helaas niet.
Hoe zorg ik ervoor dat [ORDERLIJST] update als ik de printknop indruk??

 

[sph]

Sub PRINTORDERLIJST()
Dim laatsterij As Integer
Sheets("VERZAMELLIJST").Select
laatsterij = Range("m3").Value
Sheets("ORDERLIJST").Select
With ActiveSheet
ActiveSheet.PageSetup.PrintArea = "A1:H" & laatsterij
End With
'ActiveSheet.PrintPreview
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
ActiveSheet.PageSetup.PrintArea = ""

Sheets("VERZAMELLIJST").Select


End Sub