printer kiezen met Printdialog

Status
Niet open voor verdere reacties.

keesstruijk

Gebruiker
Lid geworden
11 nov 2007
Berichten
46
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
 
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:
Code:
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.
 
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
 
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.
 
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
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan