Hi Enno,
ja, ich hab eine xml Datei mit den Prefs, natürlich könnte ich auch prüfen ob
diese vorhanden sind.
Die Lösung gefällt mir zwar nicht, aber wenn mir nichts anderes einfällt mache
ich es auch so, DANKE
Gruß
Stefan
Am 20.07.2011 um 06:52 schrieb Enno Bussmann:
> 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
>>
