Hallo,
Mit dem nachstehenden code soll zu beginn der am rechner angeschlossene
drucker eingerichtet werden. Dazu frage ich nach der druckerdatei. Ist
diese nicht vorhanden, wird sie erzeugt und eine bestätigung
ausgedruckt. Das aber geschieht nicht - es erscheint lediglich die
druckanzeige - und ich finde einfach nicht den fehler:
f = GetFolderItem("druckerprefs")
if not f.exists then
PageSetup = New PrinterSetup
If PageSetup.PageSetupDialog Then
settings = PageSetup.SetupString
end
f.Name = "druckerprefs"
tos=TextOutputStream.Create(f)
tos.write settings
tos.close
ps = new PrinterSetup
ps.SetupString = settings
msgbox "Druckereinstellungen werden gespeichert und eine
Bestätigung wird gedruckt."
g = OpenPrinter(ps)
if g <> nil then
g.TextSize = 16
g.Bold = true
g.DrawString "OK" ,100,100
else
MsgBox "FEHLER: der Drucker konnte nicht eingerichtet werden!"
end
end
