Vælge printer

Et forslag!!

Prøv at indsætte en Exit For i loopen når du har fundet den printer der skal bruges??

Altså

Set Printer = P
Exit For

Bevirker højest sandsynligt ikke noget man man kan aldrig vide!!

>>nolle_k: Næh, det virkede desværre ikke...
 
Det giver stadig bare samme fejl.

Jeg forstår bare ikke at den har valgt den rigtige printer, men idet der skal udskrives så tager den standard printeren og skriver på...

\\spinner

Prøv at sætte Printer.TrackDefault til true eller false (Prøv begge) inden
Set Printer = P

>>nolle_k: Ingen held ;(

Jeg prøvede både at sætte den ind lige inden "Set Printer = P"
og lige inden den begynder at skrive ud.

\\spinner

At du vælger printeren betyder ikke at du sætter den som default.

Der hvor du sætter de øvrige printer options skal du også sætte den valgte printer som default.

Lige hvordan du gør det i vb kan jeg ikke sige, men læs lidt om dt hjælpeteksten.

sjensen

>>sjensen:

Jeg ønsker heller ikke at ændre på systemets default-printer.
Jeg vil bare gerne udskrive på en anden end lige default.

Hvis jeg bruger CommonDlg der er med i VB så virker det godt nok, men den udskifter også systemets default printer, hvilket jo ikke helt er meningen.

Desuden vil jeg gerne benytte min egen Udskrifts-Dialogboks da jeg har nogle ekstra "options" der skal med.

Men måske er svaret at ændre systemets default-printer, mens jeg skriver ud, og så sætte den tilbage igen...

Her er hvad der står om at sætte default-printeren i help:

The Printers collection enables you to query the available printers so you can specify a default printer for your application. For example, you may want to find out which of the available printers uses a specific printer driver. The following code searches all available printers to locate the first printer with its page orientation set to portrait, then sets it as the default printer:

Dim X As Printer
For Each X In Printers
    If X.Orientation = vbPRORPortrait Then
        ' Set printer as system default.
        Set Printer = X
        ' Stop looking for a printer.
        Exit For
    End If
Next

You designate one of the printers in the Printers collection as the default printer by using the Set statement. The preceding example designates the printer identified by the object variable X, the default printer for the application.

Det ligner jo _meget_ min kode, men af en eller anden grund virker det ikke.

Jeg ved dog at Set-statementet skifter printeren, og jeg kan også trække diverse egenskaber fra den, men når jeg vil sætte egenskaber eller udskrive, så skifter den tilbage igen...

Hjælp mig *snøft*... 

(Syntes efterhånden det er mere end 30 point værd, så vi starter lige med at fordoble...)

\\spinner

Spinner,

Det der med at sætte default printer er ikke så farligt. Du kan jo starte med at gemme den printer der p.t. er default i en x-var af typen printer, derefter søge dig frem til den printer du vil bruge (evt. via navnet if x.name = 'HPlaserxxx...'), udskrive dt du vil, og derefter sætte den gamle printer tilbage som default igen. Det er jo kun for dit program du sætter default. Ikke for alle andre windows programmer på maskinen.

sjensen

>>sjensen:

Problemet er bare at ovenstående kode ikke virker til at skifte default printer for mit program. HVis jeg gør det skifter den tilbage igen.

Men jeg har lagt mærke til at CommonDialog skifter default printer for _hele_ computeren.

Og så var det jeg tænkte at det kunne jeg da også bare gøre, men jeg kan sq ikke få den til at skifte system default printer...

\\spinner

Prøv at sætte den printer du skal bruge som default og herefte sætte
Printer.PrinterDefault = True eller måske i omvendt rækkefølge!! ??

Private Sub CmdSelectPrinter_Click()
  Dim P As Printer
  `For Each P In Printers
    `If P.DeviceName = List1.Text Then
  << Set Printer = list1.text >>
    `End If
  `Next
End Sub

>>farout:

Set P = list1.text  resulterer i en

"Object required"-fejl.

>>nolle_k:

Hmm. Når jeg indtaster koden Printer.printerdefault genkender VB godt nok koden, og ændrer det til Printer.PrinterDefault. Men når jeg eksekverer koden får jeg fejlen "Method or data member not found".

PrinterDefault-prop.'en står godt nok heller ikke på listen (Men det gør Print jo heller ikke :)

\\Spinner

Jeg tænkte; er der måske nogen der har en kode liggende, hvori de har fået et printer-skift til at virke?

\\Spinner

Prøv dette:

  Dim P As Printer
  printer.enddoc
  `For Each P In Printers
    `If P.DeviceName = List1.Text Then
  << Set Printer = list1.text >>
    `End If
  `Next

Hvis der er sendt lidt data til printer objektet har den meget sværd ved at skifte til en anden printer, jeg taler af erfaring!

spinner,

i de 2 eksempler der er givet af hhv farout og bkp skal du bruge

set printer = P som er indexet for printeren i listen. Ved at sætte printer til index sætter du den til default for dit program.

Ved at sætte printer = 0 sætter du den første printer i listen som default.

>>bkp:

Det hjalp desværre heller ikke.

Jeg fatter ikke hvorfor den ikke kan holde på den printer jeg vælger.

Hvis jeg efter at have Set Printer = P, spørger hvilken printer der er aktiv, svarer den at det er den jeg har valgt (Den rigtige)

Men skriver jeg bare een kommando til Printer-objektet (Printer.Print "ARGHHH!")
og derefter spørger hvilken printer der er aktiv, er svaret bare system-printeren.

Jeg forstår ikke hvorfor den ikke kan "låse" sig fast!?!?!?!

\\Spinner

Har du prøvet at debugge, altså følge linie for linie, så og se hvornår P forlader det valg du har taget.
Hvis du har dit emidiate window åben kan du jo løbende skrive: ? p.DriverName
for at se hvad der går galt.

Jeg har en ide om at det er fordi at dit printerobject ikke er global, prøv at holde hele udskriften inden for samme rutine, eller at lave en P.Print " " lige efter du har valgt printer, så burde valget være truffet for good.

>>bkp:

Ok, det er nu lykkedes mig at få den til at udskrive på den rigtige printer, v.hj.a. denne kode:

Dim P As Printer
 
  x = Printer.Orientation  'Denne linje gjorde udslaget (I stedet for Printer.EndDoc)
 
  For Each P In Printers
    If P.DeviceName = List1.Text Then
      Printer.TrackDefault = False
      Set Printer = P
      Exit For
    End If
  Next
 
  Printer.Orientation = vbPRORLandscape
  Printer.Copies = 1
  Printer.Font = "Tahoma"
  Printer.FontSize = "16"
  Printer.Print "Printertest..."
  Printer.Font = "Tahoma"
  Printer.FontSize = "16"
  Printer.Print "ARGHHHH!"
  Printer.EndDoc

MEN GUD HJÆLPE MIG om jeg nu ikke er i stand til at vælge skrifttype/størrelse. ALT bliver skrevet ud med standard skrifttype/-størrelse.

Om jeg FATTER at det skal være så svært at lave en ordentlig udskrift i VB.

Du skal ikke referere til printer, når du har valgt en anden printer men til P:

Prøv denne:

  For Each P In Printers
    If P.DeviceName = List1.Text Then
      Set Printer = P
      p.print " "
      Exit For
    End If
  Next
 
 

  P.Orientation = vbPRORLandscape
  P.Copies = 1
  P.Font = "Tahoma"
  P.FontSize = "16"
  P.Print "Printertest..."
  P.Font = "Tahoma"
  P.FontSize = "16"
  P.Print "ARGHHHH!"
  P.EndDoc

Desuden kan du kun vælge en font som din printer er født med dem kan du finde med p.Fonts() inden for dens index som du finder med p.fontscount

Jeg håber at det hjalp!

Hmmm...

Jeg har Dim'et P as Printer

Men når jeg skriver P.Print " " efter Set Printer = P, får jeg en fejl 438: Object doesn't support this property or method.

Men altså, man sætter da også Printer = P, og ikke P = Printer, så det må da være Printer-fætteren jeg skal skrive til ?!? Eller har jeg helt misforstået noget?

Du sætter ikke Printer = P men P = Printer, det andet kan du ikke!!!

Prøv dette:

  Dim FoundP as Printer
  Dim P as Printer
  For Each FoundP In Printers
    If FoundP.DeviceName = List1.Text Then
      Set P = FoundP
      p.print " "
      Exit For
    End If
  Next
 
 

  P.Orientation = vbPRORLandscape
  P.Copies = 1
  P.Font = "Tahoma"
  P.FontSize = "16"
  P.Print "Printertest..."
  P.Font = "Tahoma"
  P.FontSize = "16"
  P.Print "ARGHHHH!"
  P.EndDoc

Linien:
x = Printer.Orientation 
reserverer ikke din printer, den spørger bare om hvordan papiret vender, for at fastholde en printer skal du udføre en kommando, som f.eks. p.print " "

Husk at du skal bruge et user defineret object istedet for Printer, det giver det bedste resultat!

bkp det virker sørme :0)

GODT

Hmm. jeg har fået meldinger fra flere sider om at den allerførste kode jeg har postet åbenbart virker fint for flere, så jeg tror næsten det er en fejl på mit system. Bare ret underligt efter som jeg har programmeret på 2 forskellige PC'ere (dog i samme netværk) hvor fejlen var ens på begge PC'ere...

Men bkp får pointene, da det lader til at farout har haft held med bkp's kode.

\\Spinner