lpt1 printer

http://read.cnread.net/cnread1/dnwl/cxsj/vb/lvbi/016.htm

Dette giver ikke helt det jeg skal bruge.

Når man logger på netværk checker vi om man har dos printer instaleret, eller starters der et pr
ogram til at vælge printer med (skrevet i vb)

derfor skal jeg kunne se om eventuelt lokal printer er monteret og tænt, for så skal jeg hoppe opvr programet til at vælge printer.

OK - Ved ikke om hvor du finder oplysningerne. Men de fleste printere der er koblet direkt til computeren, har den funktion at de kan fortælle computeren at de er løbet tør for papir. Det gør de ved at sende 5 volt (eller et 1 tal) ind på et bestemt ben på stikket i parralelporten. Man kunne så lave et program, der tjekkede dette ben, og udfra det komme med en fornuftig konklusion om der er en printer på eller om den er tændt eller slukket (evt. bare løbet tør for papir)

Jeg fandt lidt kode håber det evt kan bruges:

\'Du skal bruge en form med en Commandoknap(Command1) og en ListBox(List1)
Private Sub Form_Activate()
List1.Clear
Dim i%
For i = 0 To Printers.Count - 1
List1.AddItem Printers(i).DeviceName & \": \" & Printers(i).Port
Next i
End Sub

Private Sub List1_Click()
Set Printer = Printers(List1.ListIndex)
Printer.Print \"test Text\" \'Her læges formularen
Printer.EndDoc
End Sub

Her er det bare windows der vendet tilbage med printeren ikke er klar, og ikke VB.

Så brug: on error goto

Kan man det når det ikke er en vb fejl men en almindelig windows lpt1 fejl.

hmmmm, det ved jeg egentligt ikke.

Men løsningen må så være at aflæse det ben der fortæller om der er papir i printeren eller ej. Kender dog ikke benets nr/navn eller adresse.