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
