Hallo,
ich möchte gerne die Papierquelle eines Druckers verändern, als ob ich in "Geräte und Drucker" - Druckeinstellungen eines Druckers das Dropdown verändere und auf OK klicke.
[highlight=vbnet]
Dim ps As Drawing.Printing.PrinterSettings = New Drawing.Printing.PrinterSettings()
ps.PrinterName = "\\DRUCKSERVER\DRUCKER1"
For Each PapSource As Drawing.Printing.PaperSource In ps.PaperSources
If PapSource.SourceName.Contains("Fach 2") Then
ps.DefaultPageSettings.PaperSource = PapSource
Exit For
End If
Next
[/highlight]
Bei diesem Quelltext kann man nachvollziehen, dass die Änderungen auch gemacht werden, man kann drucken, usw., jedoch ist unter "Geräte und Drucker" immer noch das ursprüngliche Fach eingestellt. Kommt man wieder an die ps.PrinterName = "\\DRUCKSERVER\DRUCKER1" Stelle des Quelltextes, sind die Einstellungen wieder die Ursprünglichen.
Habe auch schon etwas mit PrintDocument usw. rumprobiert, doch habe ich bisher noch nicht die richtige Idee.
ich möchte gerne die Papierquelle eines Druckers verändern, als ob ich in "Geräte und Drucker" - Druckeinstellungen eines Druckers das Dropdown verändere und auf OK klicke.
[highlight=vbnet]
Dim ps As Drawing.Printing.PrinterSettings = New Drawing.Printing.PrinterSettings()
ps.PrinterName = "\\DRUCKSERVER\DRUCKER1"
For Each PapSource As Drawing.Printing.PaperSource In ps.PaperSources
If PapSource.SourceName.Contains("Fach 2") Then
ps.DefaultPageSettings.PaperSource = PapSource
Exit For
End If
Next
[/highlight]
Bei diesem Quelltext kann man nachvollziehen, dass die Änderungen auch gemacht werden, man kann drucken, usw., jedoch ist unter "Geräte und Drucker" immer noch das ursprüngliche Fach eingestellt. Kommt man wieder an die ps.PrinterName = "\\DRUCKSERVER\DRUCKER1" Stelle des Quelltextes, sind die Einstellungen wieder die Ursprünglichen.
Habe auch schon etwas mit PrintDocument usw. rumprobiert, doch habe ich bisher noch nicht die richtige Idee.
Comment