• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Ik wordt niet goed!!

Status
Niet open voor verdere reacties.
E

erick.dijk

Gebruiker
Lid geworden
18 mei 2006
Berichten
91
hoi,

Na uren tobben en hulp op dit forum dacht ik dat ik hem had, maar nee zit nog met 1 probleem.

Ik heb een blad met gegevens ik heb een macroprint knop gemaakt die perfect werkt, bij het printen laat hij overbodige kolommen bij het printen weg.

maar nu komt het, er zit ook een filter in, en als ik op bv de omschrijving "Duo lezen dinsdag"zet, en ik dan mijn gemaakte print kop gebruik, dan print hij ook de kolom "opmerking" niet, en dat is niet de bedoeling.

weet iemand hier een oplossing voor, en als jullie ook nog betere suggesties hiervoor hebben hoor ik het graag, ik stuur een bijlage mee.

bedankt en vr gr erick.
 

Bijlagen

LucB zei:
Erick,

Gaat het printen zo beter?
Klik om te vergroten...

Ja fantastisch, bedankt

Is het misschien ook mogenlijk als er bv 3 pagina's aan tekst is ingevuld, er dan ook 3 pagina's worden geprint, want nu wordt er 1 pagina uitgeprint

bedankt. erick
 
Bericht aan Lucb

erick.dijk zei:
ja perfect, bedankt
Klik om te vergroten...

hoi,

Ik had nog een vraag over jouw laatste oplossig, is het mogenlijk om die vraag te krijgen "tot welke regel hij moet printen" bij elke printopdracht neer te zetten.

er zitten ongeveer 25 printopdrachten in.

dat zou erg makkelijk zijn.

bedankt.
gr Erick.
 
Erick,

Ja dat is mogelijk.
Wel het Afdrukbereik ,indien nodig, aanpassen.(PrintArea)
Onderstaande macro kun je dus na aanpassing altijd gebruiken.


Sub Afdrukken()
Dim n As Long
n = InputBox("T/m welk Rijnummer wil je afdrukken?")
ActiveSheet.PageSetup.PrintArea = "$C$6:$I$" & n
'De begincel $C$6 en de laatste kolom $I$ aanpassen
ActiveSheet.PrintOut
End Sub
 
LucB zei:
Erick,

Ja dat is mogelijk.
Wel het Afdrukbereik ,indien nodig, aanpassen.(PrintArea)
Onderstaande macro kun je dus na aanpassing altijd gebruiken.


Sub Afdrukken()
Dim n As Long
n = InputBox("T/m welk Rijnummer wil je afdrukken?")
ActiveSheet.PageSetup.PrintArea = "$C$6:$I$" & n
'De begincel $C$6 en de laatste kolom $I$ aanpassen
ActiveSheet.PrintOut
End Sub
Klik om te vergroten...


bedankt voor het antwoord, maar zou je kunnen uitleggen hoe ik dit erin plak want van VB heb ik echt helemaal geen kaas gegeten.

Maar als het werkt zou dat wel super zijn.

vr gr Erick
 
erick.dijk zei:
bedankt voor het antwoord, maar zou je kunnen uitleggen hoe ik dit erin plak want van VB heb ik echt helemaal geen kaas gegeten.

Maar als het werkt zou dat wel super zijn.

vr gr Erick
Klik om te vergroten...

Ik neem aan dat ik de tekst moet vervangen door de hierboven genoemde tekst, of moet ik hem erbij zetten, ik krijg iig de melding"compileerfout, er wordt endsub verwacht"

gr Erick.
 
erick.dijk zei:
Ik neem aan dat ik de tekst moet vervangen door de hierboven genoemde tekst, of moet ik hem erbij zetten, ik krijg iig de melding"compileerfout, er wordt endsub verwacht"

gr Erick.
Klik om te vergroten...

zal het bestandje ff mee sturen.
 

Bijlagen

Erick,

Kopieer de macro "Afdrukken ".
In je Excel-programma klik je op de Alt-toets en houd hem ingedrukt en klik dan op de toets F11.
Je bent nu in VisualBasic-Editor.
Klik op menu "Toevoegen" en kies "Module".
Klik op het menu "Bewerken" en kies "Plakken"
Je macro staat nu op zijn plaats.
De macro aan een knop toewijzen staat in Help.
 
Erick,

Je had een Sub in een Sub geplakt.
De macro van mij had je er onder moeten plakken.

Nu heb ik nog vragen.
Op blad Printlijst staan 25 knoppen.
Ik neem aan dat elke knop naar een ander tabblad verwijst.
Is het te printen gebied van alle bladen gelijk?

Je zult dan ook 25 Macro's moeten maken en elke macro moet beginnen met dat blad te selecteren.

Je bent waarschijnlijk beter af door de 25 knoppen als hyperlink te gebruiken en dan op elk blad een knop te zetten met de macro die dat blad afdrukt.

De Bladnamen zijn mij niet bekend?

Als je 25 macro's wilt maken, dan moet je deze 24 keer kopieren.

Sub Afdrukken()
Sheets("hier bladnaam invullen tussen de aanhalingsttekens").Select
Dim n As Long
n = InputBox("T/m welk Rijnummer wil je afdrukken?")
ActiveSheet.PageSetup.PrintArea = "$C$6:$I$" & n
'De begincel $C$6 en de laatste kolom $I$ aanpassen
ActiveSheet.PrintOut
End Sub

Ik hoor wel hoe je het wilt hebben.
 
LucB zei:
Erick,

Je had een Sub in een Sub geplakt.
De macro van mij had je er onder moeten plakken.

Nu heb ik nog vragen.
Op blad Printlijst staan 25 knoppen.
Ik neem aan dat elke knop naar een ander tabblad verwijst.
Is het te printen gebied van alle bladen gelijk?

Je zult dan ook 25 Macro's moeten maken en elke macro moet beginnen met dat blad te selecteren.

Je bent waarschijnlijk beter af door de 25 knoppen als hyperlink te gebruiken en dan op elk blad een knop te zetten met de macro die dat blad afdrukt.

De Bladnamen zijn mij niet bekend?

Als je 25 macro's wilt maken, dan moet je deze 24 keer kopieren.

Sub Afdrukken()
Sheets("hier bladnaam invullen tussen de aanhalingsttekens").Select
Dim n As Long
n = InputBox("T/m welk Rijnummer wil je afdrukken?")
ActiveSheet.PageSetup.PrintArea = "$C$6:$I$" & n
'De begincel $C$6 en de laatste kolom $I$ aanpassen
ActiveSheet.PrintOut
End Sub

Ik hoor wel hoe je het wilt hebben.
Klik om te vergroten...

bedankt voor je antwoord,

Jouw antwoord zetten mij aan het denken, en je hebt gelijk ik kan beter van al die knoppen een link maken die naar die pagina gaan, en vanuit die pagina een macro met de print knop maken.

Maar wat houdt dit in?? "'De begincel $C$6 en de laatste kolom $I$ aanpassen"

vr gr Erick
 
Erick,

Wil je deze eens testen.
Dit bestand van jouw vond ik bij een andere vraag van jouw.

Een macro voor de bladen 1a t/m 16.
Een macro voor "invullijst"

Nb. Wil je spatie in de tabbladnaam "invullijst " aan het eind weghalen.
 

Bijlagen

LucB zei:
Erick,

Wil je deze eens testen.
Dit bestand van jouw vond ik bij een andere vraag van jouw.

Een macro voor de bladen 1a t/m 16.
Een macro voor "invullijst"

Nb. Wil je spatie in de tabbladnaam "invullijst " aan het eind weghalen.
Klik om te vergroten...

Hey Luc,

Bedankt voor deze, was een tijdje terug, werkt perfect.

Weet jij ook een oplossing voor het zelfde verhaal maar dat hij dan vraagt welke kolommen er afgedrukt moeten worden, en van de rijen moet hij vanaf regel 7 beginnen tot en met regel (dat lijkt me wat moeilijker) waar er tekst staat, staat er geen tekst, dan moet het printen daar ophouden.

realiseer me dat dit wel lastig is, want ik heb dmv een eerdere vraag aan de andere gebruikers hetzelfde gevraagt, maar geen reacties gehad.
maar omdat jij met die andere print probleem ook een goede oplossing had vraag ik het even aan jou.
Ik hoop dat het je lukt, onwijs bedankt als het lukt, kan het niet bedankt voor de eerdere oplossingen.

vr gr Erick.
 
Hallo Erick,

Geef eens wat voorbeelden.
Welke kolommen wil je afdrukken.
En slaat dat op de bladen 1 t/m 16?

Je zou het ook anders kunnen benaderen:
bv Welke kolommen wil je verbergen!
 
LucB zei:
Hallo Erick,

Geef eens wat voorbeelden.
Welke kolommen wil je afdrukken.
En slaat dat op de bladen 1 t/m 16?

Je zou het ook anders kunnen benaderen:
bv Welke kolommen wil je verbergen!
Klik om te vergroten...


Nee kijk het zit zo,
Elke dag worden er cijfers ingevuld, kolom a is 1 jan, kolom b is 2 jan, etc. tot het einde van het werkblad, nu wordt er veel geprint maar alleen korte stukjes dus bv kolom g t/m z en een andere keer weer kolom l t/m v etc etc.

dus eigenlijk moet er een macro komen met weer zo'n invul venster met 2 vragen, vr1: tot en met welke rij wil je printen. en 2. tot en met welke kolom wil je prnten.

Kan dit?

gr Erick.
en bedankt voor het meedenken.
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan