Hallo Stefan,
ich habe deine erste lösung ausprobiert, da tut sich bei mir überhaupt
nichts. Andererseits habe ich etwas code, der automatisch druckerprefs
für den jeweils angeschlossenen drucker erstellt, vielleicht hilft dir
das weiter:
dim PageSetup As PrinterSetup
dim ps as PrinterSetup
dim f As FolderItem
dim g As Graphics
dim tos as TextOutputStream
dim settings as string
f = GetFolderItem("druckerprefs")
if f.exists then '/habe ich zum testen drin gelassen/
f.Delete
end
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 Testseite
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
hdh enno
Am 19.07.11 23:52, schrieb Stefan Sicurella:
Hi,
ich versuche gerade verschiedene Dinge mit dem PrinterSetup auf die Reihe zu
bekommen.
Erster Start der App, es ist noch kein PrinterSetup vorhanden, der Benutzer
druckt das erste mal …
Folgender Code crashed sofort die Debug-App
global: ps=new printer setup
if len(ps.SetupString)=0 then
if ps.pagesetupDialog then
gesamtbreite=ps.Width
gesamthoch=ps.Height
else
//User hat abgebrochen
end if
end if
ok, anderer versuch
das geht, allerdings flackert dann vor jedem Druck der Bildschirm, als ob ein
Fenster ganz schnell auf und zu geht.
Sub papierformat_prüfen()
dim g as Graphics
g = OpenPrinter(ps)
if g = nil then seitesetup
End Sub
Ich suche nach einer Lösung, die keine Probleme verursacht.
RB2011R2 und 10.6.8
Gruß
Stefan
