Danke für die infos, das sehe ich mir mal an. Und der löwe muss noch ein
wenig warten bis er auf meinen rechner darf, denn da gibt es noch ein
paar programme, die er im moment wahrscheinlich noch nicht bedienen wird
oder gleich blockt.
gruss enno
Am 20.07.11 18:59, schrieb Stefan Sicurella:
Hi,
wenn du die prefs als xml sicherst hat das viele Vorteile.
Du hast halt keys und values und durchschaust auch noch eine Datei mit 100 Keys.
Außerdem kannst du auch nur bestimmte values ändern und musst nicht immer die
kompletten prefs sichern.
Ich hab Lion laufen mit RB2011R2, also bis auf ein paar optische Probleme sieht
alles sehr gut aus.
Gruß
Stefan
Am 20.07.2011 um 17:48 schrieb Enno Bussmann:
Ich habe mich bislang nicht allzuviel mit xml beschäftigt: was birgt das hier
für vorteile ?
Gruss enno
P.s. Hab mir gerade mal per system-profiler angesehen welche programme
möglicherweise nicht liontauglich sind und siehe da, der löwe könnte bei RB für
ärger sorgen...
Am 20.07.11 10:10, schrieb Stefan Sicurella:
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
