Printen

[JTMT]

Hallo,

Ik wil met en macro een uitdraai printen die alleen de ingevulde cellen print,
bv Tabblad heeft 4500 rijen actief,
Hiervan zijn er maar 1200 gevuld,
Maar volgende week kunnen dat er 1000 zijn of 1400,maar kunnen er op den duur 2300 zijn
Ik wil nu met een knop alleen de gevulde rijen afdrukken.
Is zoiets mogelijk?
MVG

JTMT

 

[danny147]

Beste JTMT

Met deze code kan je zelf een bereik bepalen voor af te printen.

Sub print1() 
Application.ScreenUpdating = False
    Blad2.[A1:R1000].PrintOut , , 1    ' bepaal hier tussen [......] de range van het blad
    Application.ScreenUpdating = True
End Subprinten

Het bereik zou je eventueel in blad 1 kunnen plaatsen in een cel en overnemen in de code.

Groetjes danny. :thumb:

 

[sparerib]

Je kunt ook eventueel:

Private Sub NAAMVANMACRO_Click()
    With ActiveSheet
        .PageSetup.PrintArea = "$A$1:$B$2"
        .PageSetup.Orientation = xlPortrait
        .PrintOut , Copies:=1
    End With
End Sub

Je kunt hierbij het gebied bepalen net als dat van Danny [Hij print in deze formule A1, A2, B1 en B2 uit]
Hoe hij moet printen Landscape of Portrait En hoevaak hij het moet printen.
Buttontje maken en Macro Toewijzen
Maar dit zorgt er niet voor dat hij alleen de ingevulde cellen doet printen en de lege doet overslaan!

 

[JTMT]

Je kunt ook eventueel:

Private Sub NAAMVANMACRO_Click()
    With ActiveSheet
        .PageSetup.PrintArea = "$A$1:$B$2"
        .PageSetup.Orientation = xlPortrait
        .PrintOut , Copies:=1
    End With
End Sub

Je kunt hierbij het gebied bepalen net als dat van Danny [Hij print in deze formule A1, A2, B1 en B2 uit]
Hoe hij moet printen Landscape of Portrait En hoevaak hij het moet printen.
Buttontje maken en Macro Toewijzen
Maar dit zorgt er niet voor dat hij alleen de ingevulde cellen doet printen en de lege doet overslaan!

Hi sparerib en Danny,
Beide codes van jullie werkte niet,
Heb even geen tijd gehad, ik heb onderstaand geprobeerd maar lukt ook niet erg, wat doe ik fout hieraan.
Tabblad Deelnemers wordt gemaakt door VERT.ZOEKEN(), vandaar wordt tabblad Uitslag weer gekopierd door (=Deelnemers!A2, enz)


Sub PrintenVerslag()
With Range("A1:G2000")
Criteria1:="<>0", Operator:=xlAnd
ActiveWindow.SelectedSheets.PrintPreview
End With
End Sub

Hebben jullie een oplossing zie bijlage

 

[Warme bakkertje]

Sub PrintenVerslag()
 With Sheets("Verslag")
    With .[A1:G2000]
        .AutoFilter
        .AutoFilter 1, Criteria1:="<>0", Operator:=xlAnd
        .PrintPreview
    End With
    .AutoFilterMode = False
End With
End Sub

 

[JTMT]

Sub PrintenVerslag()
 With Sheets("Verslag")
    With .[A1:G2000]
        .AutoFilter
        .AutoFilter 1, Criteria1:="<>0", Operator:=xlAnd
        .PrintPreview
    End With
    .AutoFilterMode = False
End With
End Sub

Bedankt, je hebt me goed op weg geholpen, werkte nog niet heb hem aangepast en nu is hij perfect.
mvgr JTMT

Sub PrintenVerslag()
With Sheets("Verslag")
With .[A1:G2000]
.AutoFilter
.AutoFilter 1, Criteria1:="<>0", Operator:=xlAnd
ActiveWindow.SelectedSheets.PrintOut Copies:=1
End With
.AutoFilterMode = False
End With
End Sub