Cor-Assa

Op 17/2/2020 om 10:43, dotchiejack zei:

In mijn voorbeeld werken de knoppen.

Halo dotchiejack.

Was het helemaal zat met dingen die niet of half werkten.

Meerdere apps die niet lekker liepen.

Gisteren maar format C en format D gedaan, op C staatt standaard mijn besturings systeem en op D de programma's.

Win10 opnieuw geinstalleerd en Office 2013.

Je raad het al, nu werkt jouw voorbeeld wel.

Nu de rest nog proberen.

Gr. Cor Assa

Bedankt voor je reactie dotchiejack.

Sorry heb het niet helemaal duidelijk gezegd. 😊

Ik vertrouw helemaal op jouw code's!

Bedoelde eigenlijk dat er bij mijn systeem of instellingen iets niet goed zit waardoor steeds de laatst gebruikte printer bewaard wordt.

De laatste (reset standaard) regel heb ik er in staan.

Als ik met F8 de code door loopt kloppen de gegevens maar toch?

Goede avond dotchiejack,

Ben er achter gekomen dat de code niet de standaard printer uit windows haalt.

Ik heb handmatig een label naar de labelprinter gestuurd.

Daarna blijft in excel deze printer standaard, ook als ik in configuratie de standaard printer nogmaals standaard maak, terwijl die dat nog is.

Excel onthoud de laatst gebruikte printer als standaard!

Dit is niet waar het om gaat DavidB, je hebt de helft van het verhaal gemist. 😊

Het betreft printer naar 2 printers.

Zojuist, dotchiejack zei:

Wat kan ik nog meer zeggen, de naam van je labelprinter in de code moet kloppen met de echte naam van je labelprinter.

strLabelPrinter = "de echte naam die je kan/moet opzoeken"

 

Gedaan volgens jouw procedure en kwam deze naam uit.

Heb de printer even opnieuw opgestart, en nu doet hij het, print alleen allemaal kleine stukjes.

Ga ik nog uitzoeken, eerst de andere klusjes die zijn belangrijker.

Alvast weer bedankt voor het mee denken!

Oké, zie in ieder geval dat ik wel heb gelezen maar niet heb gekeken en opgenomen, sorry.

Logisch achter Sheets moet natuurlijk wel de juiste Sheet naam staan!

Nu komt er 1 A4 uit mijn standaard printer, de Labelprinter niets?

Wow, wat is het makkelijk als je er zoveel van weet.

Ik heb een nieuw werkmap geopend om te testen en heb de tabbladen hernoemd naar Printertest en LabelPrintertest.

Is dat dan het probleem?

Werkmap met 2 bladen. De 1e heet "Printertest" en de 2e heet "LabelPrintertest".

Het opzoeken van de namen uit jouw vorige uitleg is gelukt, daar kwamen de genoemde namen uit.

Zo staan ze ook benoemd in mijn apparaten beheer.

Dan kom ik op deze code uit;

Sub Print_A4enLabel()
strDefaultPrinter = Application.ActivePrinter
strLabelPrinter = "Brother QL-560 op Ne01:"
    Sheets("Brother DCP-L3550CDW series").PrintOut Copies:=1
    Sheets("Brother QL-560").PrintOut ActivePrinter:=strLabelPrinter, Copies:=1
    Application.ActivePrinter = strDefaultPrinter
End Sub

En krijg ik op beide Sheets regels de volgende foutmelding

          Fout 9 tijdens uitvoering: Het subscript valt buiten het bereik.

Op 17/2/2020 om 11:04, dotchiejack zei:

Ik dacht dat die aanstond, dan weet ik ook niet waarom je knoppen niet werken.

Helaas dotchijack, ik kom er niet uit waarom het op mijn laptop niet werkt en elders wel.

Kan mij niet herinneren dat ik iets heb uitgeschakeld, juist ingeschakeld zoals "Ontwikkelaars".

Krijg totaal geen melding, kan alleen de knoppen niet aanklikken, de vba code werkt wel.

Het meeste werk doe ik zelf dus de printers zijn over het algemeen van mij, dat is het belangrijkste.

Het gaat er hier om dat ik een formulier uitprint op A4 en daar achteraan dan direct een label kan printen zonder veel gedoe met steeds een printer selecteren.

Het gaat hier om mogelijk 200 personen, dan is geautomatiseerd prettiger.

De eerste brother is trouwens via mijn netwerk.

De tweede is via mijn USB poort.

Ik probeer in mijn programma te printen naar 2 verschillende printers.

   1e   A4 formulier naar mijn standaard printer - (Brother DCP-L3550CDW)

   2e   Adres labels naar mijn Label printer         - (Brother QL-560)

Hoe regel ik dat het beste in VBA?

De formulieren en labels zijn in excel al voorbereid en staan al klaar.

Het printen lukt d.m.v. handmatige selektie ook, maar het moet allemaal automatisch gaan.

Het bestand is mobiel, kan dus zogezegd ook bij iemand anders op zijn pc, dus de standaard printer kan wisselen.

Een label printer hebben niet veel mensen dus die zal ik zelf mee moeten nemen.

Ik hoop niet dat mijn vraag weer op Chnees lijkt 😊 mocht het niet duidelijk zijn dan hoor ik het wel.

Alvast bedankt voor de hulp.

M.vr.gr.

Cor Assa

P.s. Dit topic mag gesloten worden.

Zo Chinees is het toch niet? 😉

Ik ken trouwens ook geen Chinees, wel Indonesisch, maar dat is heel anders. 😜

Gr. Cor Assa

3 minuten geleden, dotchiejack zei:

@Haije Zoals ik had aangegeven, de vraag van Cor is me niet echt duidelijk.

Dit dan,

If  Then 
    End
End If

 

Wat ik zei, hoe makkelijk kan het zijn, schaam me ervoor.

Het was dus geen Exit maar dood gewoon End!😁

Wederom bedankt dotchiejack.

1 minuut geleden, Haije zei:

Ik denk niet dat Exit Sub doet wat Cor wil, want die beëindigt alleen de lopende procedure en geeft de controle terug aan de aanroepende.

Cor wil dat allen procedures beëindigd worden.

Inderdaad, niet het op dat moment lopende sub maar de gehele procedure, alle sub's.

Ik weet het is een heel makkelijke maar kan m niet meer vinden.

Ik dacht eerst dat het Exit was maar dat werkt niet.

Ik heb een routine die ter controle naar een sub-routine verwijst.

Als in die routine nu iets niet blijkt (als) dan moeten alle routines afgebroken worden.

Dus ook de eerste waar de verwijzing uit kwam.

Wie kan mij vertellen welk woord daar voor gebruikt wordt?

Gr. Cor Assa

Ik nu ook effe niet.

Heb het bestand even mee genomen naar een andere pc waar dezelfde excel versie op staat.

En daar werkt het wel, wordt dus even zoeken wat er loos is. 😉

Nee die staat niet aan.

Als ik die aanzet kan ik het object aanpassen en dat is niet de bedoeling.

2 minuten geleden, dotchiejack zei:

Je ontwerpmodus is ingeschakeld.

Ontwerpmodus?

Heb je eerste voorbeeld nog even geprobeerd en die werkt wel.

Oke, is er dus bij mij iets niet goed!

Als ik er boven ga staan krijg ik het witte (blok) kruisje.

Klik ik er op dan krijg ik het kruisje 4 pijltjes naar de windrichtingen!

2 minuten geleden, dotchiejack zei:

Euh?

Zijn macro's ingeschakeld.

Ja, keek ik ook al naar.

Als ik ze in vba opent werken de codes gewoon.

Heb deze optie voorlopig standaard open gezet i.v.m. testen.

Netwerk vrije machine!

15 minuten geleden, Cor-Assa zei:

De bedoeling bij de 2e vraag is eigenlijk, zodra het bestand opent je 2 (of 3) knoppen met namen (of eventueel foto van persoon) ziet.

Zodra je hierop klikt moet het bijbehorende ww ingetikt worden.

 

B.v.d. Cor Assa

Als ik het goed begrijp, in jouw opzet kijkt het systeem de hele lijst door totdat hij het juiste wachtwoord heeft gevonden bij elk willekeurig persoon?

Dus stel dat er veel meer personen in kunnen loggen en (wel heel toevallig) hetzelfde ww hebben dan pakt hij zeker automatisch de eerste die hij tegenkomt?

Eigenlijk voldoet het wel aangezien we voorlopig maar met 3 personen dit bestand gaan gebruiken.

De knoppen werken bij mij niet?

Zit er bij mij iets fout?

De bedoeling bij de 2e vraag is eigenlijk, zodra het bestand opent je 2 (of 3) knoppen met namen (of eventueel foto van persoon) ziet.

Zodra je hierop klikt moet het bijbehorende ww ingetikt worden.

B.v.d. Cor Assa

Bedankt, ik sprong altijd naar het genoemde tabblad om gegevens op te halen.

Maar dat is dus niet nodig, kan ik nog het een en ander aanpassen in mijn bestand en vba code.☺️.

Bedankt, nog n fijn weekend.

Dit topic mag gesloten worden.