Printen naar verschillende printers

[Cor-Assa]

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

[Cor-Assa]

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.

[Cor-Assa]

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.

[Cor-Assa]

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.

 

20 februari 2020 aangepast door Cor-Assa

[Cor-Assa]

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?

[Cor-Assa]

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!

[Gast]

Quote

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

Mobiel printen doe je rechtstreeks van Mobiel apparaat (GSM, Tablet) naar de wifi printer via mobiel netwerk .

[Gast]

Je citeert het zelf in je vraag .
 

Quote

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

Een mobiele printer neem je overal maar mee war je wil . Ga je bij een klant  en je wil daar bijvoorbeeld een offerte printen , verzend je offerte via je mobieltje >> mobiel netwerk naar de mobiele printer .
Lees meer over mobiel printen .

[Cor-Assa]

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

Het betreft printer naar 2 printers.

 

[Cor-Assa]

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!