---

Hej gruppe!

Er det muligt i VB at se en liste over samtlige installerede printere?
Er det også muligt at vælge hvilken printer man vil udskrive et dokument fra
vb på, dvs ikke nødvendigvis standard printeren?

Håber ikke det var for stor en mundfuld :o/

På forhånd mange tak for hjælpen!

Med venlig hilsen Lasse

---

Ja - det er meget nemt. Eksempel :

- Sæt en CommonDialog komponet på din form, og indtast :

Private Sub Form_Load()
CommonDialog1.ShowPrinter
End Sub


"Lasse Eskildsen" <Leskil@webspeed.dk> skrev i en meddelelse
news:3eb401cf$0$31979$edfadb0f@dread12.news.tele.dk...
> Hej gruppe!
>
> Er det muligt i VB at se en liste over samtlige installerede printere?
> Er det også muligt at vælge hvilken printer man vil udskrive et dokument
fra
> vb på, dvs ikke nødvendigvis standard printeren?
>
> Håber ikke det var for stor en mundfuld :o/
>
> På forhånd mange tak for hjælpen!
>
> Med venlig hilsen Lasse
>
>

---

"Jens Jensen" <a@asb.dk> skrev i en meddelelse
news:3eb44198$0$52151$edfadb0f@dread16.news.tele.dk...
> Ja - det er meget nemt. Eksempel :
>
> - Sæt en CommonDialog komponet på din form, og indtast :
>
> Private Sub Form_Load()
> CommonDialog1.ShowPrinter
> End Sub
>
Ja, det er jo meget smart at man kan bruge Windows egen printerdialog.

Men desværre ændrer det standardprinteren, så alle andre programmer, der
udskriver, får lige pludselig også denne printer som standardprinter

--
Jan

Remove the cat in the emailadress to reach me

---

Hej Lasse

Eller:
Placer en ComboBox på formen

Dim oPrt as Printer
For Each oPrt In Printers
Combo1.AddItem oPrt.DeviceName
Next

Private Sub Combo1_Click()
Dim oPrt As Printer
For Each oPrt In Printers
If oPrt.DeviceName = Combo1.Text Then
Set Printer = oPrt
End If
Next
End Sub

/Johnny
"Lasse Eskildsen" <Leskil@webspeed.dk> wrote in message
news:3eb401cf$0$31979$edfadb0f@dread12.news.tele.dk...
> Hej gruppe!
>
> Er det muligt i VB at se en liste over samtlige installerede printere?
> Er det også muligt at vælge hvilken printer man vil udskrive et dokument
fra
> vb på, dvs ikke nødvendigvis standard printeren?
>
> Håber ikke det var for stor en mundfuld :o/
>
> På forhånd mange tak for hjælpen!
>
> Med venlig hilsen Lasse
>
>

---

Det var lige præcis hvad jeg var ude efter, mange tak for hjælpen!

Med venlig hilsen Lasse

"Johnny E Jensen" <emde@emde123456.dk> skrev i en meddelelse
news:3eb45032$0$48907$edfadb0f@dtext02.news.tele.dk...
> Hej Lasse
>
> Eller:
> Placer en ComboBox på formen
>
> Dim oPrt as Printer
> For Each oPrt In Printers
> Combo1.AddItem oPrt.DeviceName
> Next
>
> Private Sub Combo1_Click()
> Dim oPrt As Printer
> For Each oPrt In Printers
> If oPrt.DeviceName = Combo1.Text Then
> Set Printer = oPrt
> End If
> Next
> End Sub
>
> /Johnny
> "Lasse Eskildsen" <Leskil@webspeed.dk> wrote in message
> news:3eb401cf$0$31979$edfadb0f@dread12.news.tele.dk...
> > Hej gruppe!
> >
> > Er det muligt i VB at se en liste over samtlige installerede printere?
> > Er det også muligt at vælge hvilken printer man vil udskrive et dokument
> fra
> > vb på, dvs ikke nødvendigvis standard printeren?
> >
> > Håber ikke det var for stor en mundfuld :o/
> >
> > På forhånd mange tak for hjælpen!
> >
> > Med venlig hilsen Lasse
> >
> >
>
>