printer kiezen met Printdialog

[keesstruijk]

Hallo

ik wil de printer kiezen door middel van het PrintDialog
maar krijg het niet voor elkaar
is er iemand die mij opweg kan helpen
ik doe het als volg

Private Sub btnPrintWithDialog_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrintWithDialog.Click

Dim printer As New Printer

PrintDialog1.ShowDialog()
With PrintDialog1
.PrinterSettings.PrinterName = PrintDialog1.PrinterSettings.PrinterName
End With
printer.Print(" Hallo")
printer.EndDoc()
End Sub

 

[dnties]

Ik kan niet beoordelen of er veel verschil zit in Visual Basic of Windows Script Host-code, maar ik zou vermoeden dat je eerst de lokale printers moet 'enumeren' (='opsommen') voordat je een keuze maakt.

Kijk even hier voor een script voorbeeld waarbij de lokale geïnstalleerde printers worden opgesomd/opgevraagd via Windows Scripting:

strComputer = "."

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

Set colPrinters = objWMIService.ExecQuery _
    ("Select * From Win32_Printer Where Local = TRUE")

Hopelijk heb je hier wat aan.

Succes,

Tijs.

 

[keesstruijk]

Hoi

Daar kom ik niet verder mee
even voor de duidelijkheid ik werk in vb.net
print onder
Microsoft.VisualBasic.PowerPacks.Printing.Compatibility.VB6
dus printen gaat het zelde als in VB6

 

[dnties]

Google eens (zoals ik gedaan heb) op: printer enumeration vb.net
Dan kom je uit op webpagina's zoals deze webpagina.

Hopelijk heb je hier wél wat aan.

Tijs.

 

[keesstruijk]

Daar kom ik ook niet verder mee
mijn probleem is nog....
Als ik via een PrintDialog een printer selecteer en oke geef dan krijg ik retour via
(PrintDialog1.PrinterSettings.PrinterName) welke printer ik heb geselecteerd
Hoe vertel ik nu in mijn programma dat hij deze printer moet gebruiken
als het doe met printer.DeviceName = PrintDialog1.PrinterSettings.PrinterName
krijg ik de melding printer.DeviceName is ReadOnly
Heeft iemand hier de juiste code voor