Silenus paparias
2010-05-13 09:14:58 UTC
Hallo.
Habe folgendes Problem.
Eine form funktioniert wie es soll:
Der User gibt 3 zahlen ein und anhand diese zahlen wird mit foldende
Code (aus solution) ein graph dargestellt
............................
cGData = ""+TAB+AM1_LOC+TAB+AM2_LOC+TAB+AM3_LOC+CRLF+;
TAB+STR((sen1))+TAB+STR((sen2))+TAB+STR((sen3))+CRLF
THISform.LockScreen = .T.
append general gen1 class "msgraph.chart" DATA m.cGData
THISform.OleBoundControl1.ControlSource = "gen1"
THISform.OleBoundControl1.HasLegend = .F.
THISform.OleBoundControl1.autoformat(coltype,1)
thisform.optiongroup1.Value=2
THISform.LockScreen = .F.
......................
Ein " Print-Button" soll das ganze auf Papier bringen:
report from graph.frx to printer noconsole.
(Die .frx hat ein OleBouindControl, eine Image(logo) und 3 Text-
felder)
Nun Passiert folgendes.
1.Nach drucken des Print-Buttons wird das OleboundControl auf der Form
leer.
2. Image wird nicht ausgedruck.(Bei direktstart der *. frx wird das
Image mitausgedruckt)
3. Graph und Text felder werden Korrekt mit ausgedruckt.
Hat jemand eine idee?
Gruss.
A
Habe folgendes Problem.
Eine form funktioniert wie es soll:
Der User gibt 3 zahlen ein und anhand diese zahlen wird mit foldende
Code (aus solution) ein graph dargestellt
............................
cGData = ""+TAB+AM1_LOC+TAB+AM2_LOC+TAB+AM3_LOC+CRLF+;
TAB+STR((sen1))+TAB+STR((sen2))+TAB+STR((sen3))+CRLF
THISform.LockScreen = .T.
append general gen1 class "msgraph.chart" DATA m.cGData
THISform.OleBoundControl1.ControlSource = "gen1"
THISform.OleBoundControl1.HasLegend = .F.
THISform.OleBoundControl1.autoformat(coltype,1)
thisform.optiongroup1.Value=2
THISform.LockScreen = .F.
......................
Ein " Print-Button" soll das ganze auf Papier bringen:
report from graph.frx to printer noconsole.
(Die .frx hat ein OleBouindControl, eine Image(logo) und 3 Text-
felder)
Nun Passiert folgendes.
1.Nach drucken des Print-Buttons wird das OleboundControl auf der Form
leer.
2. Image wird nicht ausgedruck.(Bei direktstart der *. frx wird das
Image mitausgedruckt)
3. Graph und Text felder werden Korrekt mit ausgedruckt.
Hat jemand eine idee?
Gruss.
A