Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Opening a Report in Screen
Message
De
07/07/2005 13:42:15
 
 
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Versions des environnements
Visual FoxPro:
VFP 6 SP5
OS:
Windows XP
Database:
Visual FoxPro
Divers
Thread ID:
01030007
Message ID:
01030058
Vues:
15
This always works for me:
LOCAL oPreviewForm
oPreviewForm = createOBJECT('PreviewForm')

REPORT FORM test TO PRINTER PROMPT WINDOW PREVIEWFORM PREVIEW

oPreviewForm.Release

RETURN

*--------------------------------------------------------------------------
DEFINE CLASS previewform AS form


	Height = 250
	Width = 375
	Desktop = .F.
	ShowWindow = 2
	ScrollBars = 3
	DoCreate = .T.
	AutoCenter = .T.
	BorderStyle = 3
	Caption = "Print Preview Window"
	ControlBox = .F.
	Closable = .F.
	MinButton = .F.
	Movable = .F.
	WindowType = 0
	WindowState = 2
	AlwaysOnTop = .F.
	onkeyctrlf10 = "''"
	Name = "previewform"


	PROCEDURE QueryUnload
		lcoldctrlf10setting = THISFORM.onkeyctrlf10
		IF !EMPTY(lcoldctrlf10setting)
			ON KEY LABEL CTRL+F10 &lcoldctrlf10setting
		ENDIF
	ENDPROC


	PROCEDURE Init
		DODEFAULT()
		THISFORM.onkeyctrlf10 = ON('KEY LABEL','CTRL+F10')
		ON KEY LABEL CTRL+F10
		THIS.SHOW()
		CLEAR TYPEAHEAD
	ENDPROC


	PROCEDURE Deactivate
		DODEFAULT()
		IF WEXIST('Report Designer')
			MOUSE DBLCLICK AT -0.1,0.1 WINDOW "Report Designer"
		ENDIF
		IF WEXIST('Print Preview')
			MOUSE DBLCLICK AT -0.1,0.1 WINDOW "Print Preview"
		ENDIF
		keyboard "{ctrl+f10}"
	ENDPROC


ENDDEFINE
>I'm trying to OPEN all Reports (in a project) FULL SCREEN so the User does not have to MANUALLY change to FULL SCREEN for viewing.
>
>Anyone know why the COMMAND "KEYBOARD '{CTRL+F10}'" placed before issuing
>the COMMAND "REPORT FORM formname PREVIEW IN SCREEN" does not work all the time (ie, does not open the report FULL SCREEN)?
>
>Harry
.·*´¨)
.·`TCH
(..·*

010000110101001101101000011000010111001001110000010011110111001001000010011101010111001101110100
"When the debate is lost, slander becomes the tool of the loser." - Socrates
Vita contingit, Vive cum eo. (Life Happens, Live With it.)
"Life is not measured by the number of breaths we take, but by the moments that take our breath away." -- author unknown
"De omnibus dubitandum"
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform