Avatar billede wonsyld Nybegynder
15. januar 2005 - 16:45 Der er 24 kommentarer og
1 løsning

Printer valg

Jeg har lavet et Access program, hvor jeg ønsker at udskrive en rapportside på en specifik netværksprinter ved brug af en Dialogbox uden at den herefter bliver sat til Default printer.
Jeg har set på de muligheder som findes ved at søge men har ikke fundet løsningen endnu.
Jeg bruger p.t ShowPrinter men kan kun udskrive på Default printer vælger jeg en anden bliver den Default og det ønsker jeg ikke...
Jeg er nybegynder ud i print så derfor er der gode forslag???
Jeg kan godt programmere i VBA (Visual Basic)
15. januar 2005 - 16:47 #1
På Accessweb ligger der et par eksempler. Prøv f.eks. dette download: http://www.mvps.org/access/reports/rpt0009.htm
Avatar billede wonsyld Nybegynder
15. januar 2005 - 17:42 #2
Jeg har set lidt på dit hints..
Men hvor kan jeg sætte /You can set the PrtDevNames and PrtDevMode properties/.
Måske er det simpelt men jeg kan desværre ikke lige gennemskue det.

Har vi måske en code der kan gøre dette..
Avatar billede mugs Novice
15. januar 2005 - 19:24 #3
wonsyld > Jeg har et eksempel, hvor du vælger hvilken netværksprinter du vil udskrive på i en combo. Blot læg din e-mail.
Avatar billede wonsyld Nybegynder
16. januar 2005 - 11:17 #4
Det lover godt...
Min e-mail: kwh@galnet.dk
Avatar billede mugs Novice
16. januar 2005 - 11:21 #5
Sendt.
Avatar billede wonsyld Nybegynder
16. januar 2005 - 15:00 #6
Det er lige hvad jeg skulle bruge (jeg har lavet en lille test), men kan først teste det rigtigt af på mandag når jeg kommer på arbejde..

Men når det virker i min test er jeg fortrøstningsfuld..

Det eneste jeg ikke helt forstår er hvorfor ikonet for standardprinter ikke ikke bliver sat efter udprintning??
Jeg kan godt se i functionen at det er op til mig at afgøre.
Jeg bruger Dialogboks på følgende måde:
dialogbox.PrinterDefault=true
strStdPrinter=GetDefaultPrinter
dialogbox.ShowPrinter
UdskrivRapport_Click
SetDefaultPrinter STDprinter
og det virker, men jeg mangler lige det sidste eller har det ingen betydning??
Avatar billede mugs Novice
16. januar 2005 - 15:07 #7
Det forstår jeg ikke. Uddrag af dit spørgsmål:

"vælger jeg en anden bliver den Default og det ønsker jeg ikke..."

Og i din sidste kommentar forstår jeg det sådan, at det netop er det du vil. Som du kan se af funktionen i modulet, er det noget jeg har lånt på internettet. Jeg har aldrig været inde i funktionen og se, hvordan det fungerer.
Avatar billede wonsyld Nybegynder
16. januar 2005 - 15:23 #8
Ok
Det jeg var ude efter er besvaret...
SetDefaultPrinter STDprinter er naturligvis SetDefaultPrinter strStdPrinter
Det jeg spørger efter er at når jeg har udskrevet, og går i kontrolpanel så er der ingen "v" ved "gammel" default printer.
Det sikkert kun en detalje men har det en betydning for senere udskrivninger at standardprinter ikke er makeret i kontrolpanelet??
Du har fortjent de 60 point
Avatar billede mugs Novice
16. januar 2005 - 15:41 #9
Tak for point.
Det skal afprøves imorgen når jeg kommer på arbejde. Jeg har kun en enkelt printer her hjemme.
Avatar billede wonsyld Nybegynder
16. januar 2005 - 15:56 #10
Ok
Jeg afventer med spænding din "prøve"
Jeg har to printere derfor dette "problem"
Jeg kan se at jeg ikke selv skal svare men kommentere...
Avatar billede mugs Novice
16. januar 2005 - 16:08 #11
Du kan sagtens svare på dit eget spørgsmål. Hvis du f.eks. opretter et spørgsmål men ikke får tilfredsstillende svar, kan du svare selv og acceptere dette svar. Så får du dine point igen.

Men en sådan fremgangsmåde bør afføde, at du giver en begrundelse, evt. en kopi af den kode, som du selv har fundet frem til og som opfylder lige netop dine krav.
Avatar billede wonsyld Nybegynder
16. januar 2005 - 17:52 #12
Ok I get the point...
Tak
Avatar billede fdata Forsker
16. januar 2005 - 23:33 #13
>> mugs. Det er en jo en af de gamle travere her på e. Har du fundet en løsning, der holder? De tidligere har jo altid haft en eller anden irriterende begrænsning. Kunne man måske få lov til at snuse til din løsning (se min mailadr. på info-siden)
Avatar billede mugs Novice
17. januar 2005 - 05:32 #14
fdata > Jeg erindrer ikke at have set andre løsninger på eksperten. Jeg har afprøvet den på min arbejdsplads med ca 800 maskiner uden problemer. (Har dog ikke prøvet at installere samtlige printere). Men nu har du den i hvert fald.
Avatar billede mugs Novice
17. januar 2005 - 11:59 #15
wonsyld > koden ændrer ganske rigtig computeren's standardprinter. Men du kan ændre dette ved at sætte en ubundet tekstboks på formularen, og i Form_Load tilføjer du denne linie som sidste linie inden End Sub:

Me.Tekst10 = Me.Combo0

Og i udskrivningsknappen som sidste linie:

Me.Combo0 = Me.Tekst10

Feltnavnene skal rettes til de aktuelle. Når du er færdig med at udskrive, vil standardprinteren igen skifte til den printer der var gældende, da du åbnede formularen. Den ubundne tekstboks kan du blot i egenskaben Synlig sætte til Nej.
Avatar billede wonsyld Nybegynder
17. januar 2005 - 20:31 #16
Jeg har arbejdet lidt med forskellige muligheder..
Men uanset hvilke løsninger jeg vælger, så når jeg har valgt den printer jeg ønsker og udskriver en rapport, og herefter  sætter den tidligere printer tilbage til default (ved hjælp af Setdefault), så når jeg går i kontrolpanel vises ingen default printer med ikonet "v". Det har ingen betydning for senere udskrifter, men hvorfor ikke.
Har du oplevet det samme og finds der en løsning??
Det er sikkert en biting men alligevel...
Avatar billede mugs Novice
17. januar 2005 - 20:33 #17
Jeg ved det ikke. I formiddags da jeg afprøvede ovenstående løsning, beholdt den mærket for standardprinter i kontrolpanelet.
Avatar billede fdata Forsker
17. januar 2005 - 20:35 #18
Tak for tilsendte.
Avatar billede mugs Novice
17. januar 2005 - 20:37 #19
Selv tak. Vil du afprøve efter ovennævnte metode, og give os resultatet?
Avatar billede wonsyld Nybegynder
17. januar 2005 - 20:41 #20
OK og tak for din indsats
Måske fordi jeg bruger en AxtiveX dialogbox for at omgås de lidt snørklede veje med
combobox m.v
Jeg lader det stå som et uåbnet spørgsmål og arbejder videre.
Men jeg fik dog en løsning
Avatar billede mugs Novice
17. januar 2005 - 20:42 #21
Selv tak, lad os vide hvis du finder en løsning.
Avatar billede fdata Forsker
23. januar 2005 - 15:38 #22
mugs >> Har kigget på løsningen, og kan se - som du nævner efter mit indlæg - at den virker "omvendt", idet den ikke styrer udskriften til en valgt printer; men derimod ændrer standardprinteren. Det var ikke helt, det jeg forventede; men ok, det ser ud til at spille ved simple printopgaver, hvis man husker at "rydde op" efter endt print. Fikst.
Avatar billede mugs Novice
23. januar 2005 - 15:43 #23
Jeg plejer at lave en ubundet tekstboks på formularen. Derefter i form Current:

Me.Tekst0 = Me.combo0

og efter udskriftkoden:

Me.combo0 = Me.Tekst0

Så skifter den tilbage til den standardprinter der var sat da formen åbnede.
Avatar billede fdata Forsker
23. januar 2005 - 18:08 #24
Yeps. Den er jeg helt med på.
Avatar billede mugs Novice
23. januar 2005 - 18:10 #25
Og de opdager aldrig hvad der skete ;o)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Dyk ned i databasernes verden på et af vores praksisnære Access-kurser

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

IT-JOB

Politiets Efterretningstjeneste

IT Sikkerhedsarkitekt i PET

Forsvarsministeriets Materiel- og Indkøbsstyrelse

Sektionschef til Enterprise Arkitektur i Forsvaret på Østerbro

Forsvarsministeriets Materiel- og Indkøbsstyrelse

Ingeniør til Satellitkommunikation