Alleen cellen met tekst uitprinten

Status
Niet open voor verdere reacties.
H

harmnaberman

Gebruiker
Lid geworden
31 jan 2019
Berichten
44
Hallo,

Ik heb een datasheet (Sheet 1) met informatie. Kolom a t\m f is altijd gevuld, maar de aantal gevulde rijen kan per dag verschillen
Ik krijg een keer per dag deze datasheet, moet het uitprinten en in een map bewaren.

Op dit moment selecteer ik nog alle cellen en dan print ik het uit.

Kan iemand mij helpen met VBA code dat ik met een druk op de knop alle cellen waar data in staat kan selecteren en uitprinten?

Ik voeg een plaatje toe met data van een dag.
 

Bijlagen

  • 2.JPG
    2.JPG
    88,7 KB · Weergaven: 52
Je kan beter een voorbeeld document toevoegen.
 
Code: 
Sheets("Sheet 1").cells(1).currentregion.printout

Nb. Hoe krijg je de spatie in de tabnaam. Heb je dat zelf gedaan?
 
Laatst bewerkt:
Bij deze een excel bestand met data.
(Ik leg nog even iets beter uit wat ik precies wil)

Ik heb een stukje code toegevoegd waar ik al het een en ander mee heb geprobeerd, maar ik ben nog niet gekomen tot de uiteindelijke oplossing.

Het volgende krijg ik nu uit de printer met de huidige code (zie bijlage - op twee A4'tjes - met foto's).

Wat zou ik graag anders willen hebben?
*Dat de rasterlijnen aan staan, dan is het beter leesbaar.
*Document moet ''landscape'' draaien om alles netjes op het papier te krijgen.
*Alleen data in de cellen printen en geen lege cellen uitprinten.
*Ik maak gebruik van deze print code, omdat ik niet altijd de default printer wil gebruiken.

*Optieneel: autofit data to paper size? Als dat mogelijk is.

Kan iemand mij helpen aub?
 

Bijlagen

  • 1.jpg
    1.jpg
    254 KB · Weergaven: 39
  • 2.jpg
    2.jpg
    219,6 KB · Weergaven: 37
  • VBA_Print_Selectie.xlsm
    20,1 KB · Weergaven: 16
VenA zei:
Code: 
Sheets("Sheet 1").cells(1).currentregion.printout

Nb. Hoe krijg je de spatie in de tabnaam. Heb je dat zelf gedaan?
Klik om te vergroten...

Bedankt, de code werkt, maar ik heb misschien te weinig info gegeven. Zie extra toelichting.

Spatie in de tabnaam, ik heb Office 2019. Misschien een update? Nu je het zegt kan ik me herinneren dat in oudere versie een underscore gebruikt moest worden.
 
Bij deze een excel bestand met data.
(Ik leg nog even iets beter uit wat ik precies wil)

Ik heb een stukje code toegevoegd waar ik al het een en ander mee heb geprobeerd, maar ik ben nog niet gekomen tot de uiteindelijke oplossing.

Het volgende krijg ik nu uit de printer met de huidige code (zie bijlage - op twee A4'tjes - met foto's).

Wat zou ik graag anders willen hebben?
*Dat de rasterlijnen aan staan, dan is het beter leesbaar.
*Document moet ''landscape'' draaien om alles netjes op het papier te krijgen.
*Alleen data in de cellen printen en geen lege cellen uitprinten.
*Ik maak gebruik van deze print code, omdat ik niet altijd de default printer wil gebruiken.

*Optieneel: autofit data to paper size? Als dat mogelijk is.

Kan iemand mij helpen aub?
 

Bijlagen

  • VBA_Print_Selectie.xlsm
    20,1 KB · Weergaven: 21
  • 2.jpg
    2.jpg
    219,6 KB · Weergaven: 38
  • 1.jpg
    1.jpg
    254 KB · Weergaven: 37
Ik zie geen verschil tussen #4 en #6. Voor pagina-en printinstellingen kan je het beste even een macro opnemen. Vervolgens haal je al het overbodige weg en krijg je zoiets.

Code: 
Sub VenA()
  With Sheets("Sheet 1").PageSetup
    .PrintGridlines = True
    .Orientation = xlLandscape
    .FitToPagesWide = 1
    .FitToPagesTall = False
    .Parent.Cells(1).CurrentRegion.PrintOut Copies:=1, Collate:=True
  End With
End Sub
 
@VENA

Bedankt, klopt ze zijn gelijk.
Ik dacht dat omdat ik na dat bericht jou heb beantwoord dat mijn bericht niet meer werd gezien.

Ik heb nog wel een vraag, autofit of fit to paper size?
Kan je mij daar ook mee helpen?
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan