Harry_Clipper
Programmer
Hallo all,
sorry for my english...
I'm using VFP9 SP2
I have 2 problems:
1) I use msflexgrid on some forms (mandatory).
When I run it in VFP all my rows and cals are exactly so width and high as it should be.
In compiled exe the rows and col are very small:
here how it looks in the compiled exe:
should look like this in VFP environment:
It is all the same code!
Have anyone an idea how this comes?
2) I wanted to use Preview on some printouts.
I found this code :
************ start snippet **********7
LOCAL loRepPreview, loRepListener
loRepPreview = NULL
DO (_ReportPreview) WITH loRepPreview
loExtension = NEWOBJECT("MyInWindowFixer","preview_fixer.prg") && Contains the Class defined above
WITH loRepPreview
.Caption = "Druckvorschau"
.TopForm = .T.
.CanvasCount = 1
.ZoomLevel = 5
.Width = myform1.width + 200
.height = myform1.height + 100
.ToolbarIsVisible = .t.
ENDWITH
loRepPreview.SetExtensionHandler(loExtension)
loRepListener = NEWOBJECT('ReportListener')
loRepListener.ListenerType = 1
loRepListener.PreviewContainer = loRepPreview
Report Form anlage Range 1,1 NOCONSOLE OBJECT loRepListener &&Noconsole Preview
RELEASE loRepListener
RELEASE loRepPreview
******************* code snipped end **********
when I run the report with the above code i see the pagecounter runs up to 500 pages before I stop it.
It should be just one page.
When I run the report with :
Report Form anlage Range 1,1 NOCONSOLE preview
it just prints one page which is correct.
Have anybody an idea how this comes?
Thank you to all in advance.
Harald
then it prints one page (there should not more than one page)
when i run it with the
sorry for my english...
I'm using VFP9 SP2
I have 2 problems:
1) I use msflexgrid on some forms (mandatory).
When I run it in VFP all my rows and cals are exactly so width and high as it should be.
In compiled exe the rows and col are very small:
here how it looks in the compiled exe:
should look like this in VFP environment:
It is all the same code!
Have anyone an idea how this comes?
2) I wanted to use Preview on some printouts.
I found this code :
************ start snippet **********7
LOCAL loRepPreview, loRepListener
loRepPreview = NULL
DO (_ReportPreview) WITH loRepPreview
loExtension = NEWOBJECT("MyInWindowFixer","preview_fixer.prg") && Contains the Class defined above
WITH loRepPreview
.Caption = "Druckvorschau"
.TopForm = .T.
.CanvasCount = 1
.ZoomLevel = 5
.Width = myform1.width + 200
.height = myform1.height + 100
.ToolbarIsVisible = .t.
ENDWITH
loRepPreview.SetExtensionHandler(loExtension)
loRepListener = NEWOBJECT('ReportListener')
loRepListener.ListenerType = 1
loRepListener.PreviewContainer = loRepPreview
Report Form anlage Range 1,1 NOCONSOLE OBJECT loRepListener &&Noconsole Preview
RELEASE loRepListener
RELEASE loRepPreview
******************* code snipped end **********
when I run the report with the above code i see the pagecounter runs up to 500 pages before I stop it.
It should be just one page.
When I run the report with :
Report Form anlage Range 1,1 NOCONSOLE preview
it just prints one page which is correct.
Have anybody an idea how this comes?
Thank you to all in advance.
Harald
then it prints one page (there should not more than one page)
when i run it with the