Mini Kabibi Habibi

Current Path : C:/Users/ITO/Desktop/VF9/program files/microsoft visual foxpro 9/samples/solution/reports/
Upload File :
Current File : C:/Users/ITO/Desktop/VF9/program files/microsoft visual foxpro 9/samples/solution/reports/print.sct

�VERSION =   3.00dataenvironmentdataenvironmentDataenvironmentName = "Dataenvironment"
11formformfrmPrintReportHeight = 136
Width = 342
Desktop = .T.
DoCreate = .T.
AutoCenter = .T.
BorderStyle = 2
Caption = "Print Report"
MaxButton = .F.
MinButton = .F.
WindowType = 1
BackColor = 192,192,192
creport = D:\DATA FILES\REPORTS\percentoftotal.frx
Name = "frmPrintReport"
7creport Specifies the report to print from this form.
optiongroupoptiongroupopgReportOutputfrmPrintReport�ButtonCount = 3
BackStyle = 0
Value = 1
Height = 110
Left = 10
Top = 14
Width = 242
Name = "opgReportOutput"
Option1.FontBold = .F.
Option1.FontName = "MS Sans Serif"
Option1.FontSize = 8
Option1.BackStyle = 0
Option1.Caption = "Print Preview"
Option1.Value = 1
Option1.Height = 15
Option1.Left = 11
Option1.Top = 12
Option1.Width = 80
Option1.AutoSize = .T.
Option1.Name = "optPreview"
Option2.FontBold = .F.
Option2.FontName = "MS Sans Serif"
Option2.FontSize = 8
Option2.BackStyle = 0
Option2.Caption = "Printer"
Option2.Value = 0
Option2.Height = 15
Option2.Left = 11
Option2.Top = 30
Option2.Width = 48
Option2.AutoSize = .T.
Option2.Name = "optPrinter"
Option3.FontBold = .F.
Option3.FontName = "MS Sans Serif"
Option3.FontSize = 8
Option3.BackStyle = 0
Option3.Caption = "File"
Option3.Value = 0
Option3.Height = 15
Option3.Left = 11
Option3.Top = 48
Option3.Width = 34
Option3.AutoSize = .T.
Option3.Name = "optFile"
>PROCEDURE optPreview.Click
THISFORM.txtFileName.enabled = .F.
THISFORM.cmdSaveAs.enabled = .F.
ENDPROC
PROCEDURE optPrinter.Click
THISFORM.txtFileName.enabled = .F.
THISFORM.cmdSaveAs.enabled = .F.
ENDPROC
PROCEDURE optFile.Click
THISFORM.txtFileName.enabled = .T.
THISFORM.cmdSaveAs.enabled = .T.
ENDPROC
��� ����%����UWT��C�HWe should add in the Save As dialog here when the Save As class is done.�x��UClick,��1A1h)��� ����%Pe_�U

����UTHISFORMRELEASEClick,��1�1!)�frmPrintReport	cmdSaveAs
commandbuttonlabellabellblReportOutputfrmPrintReport�AutoSize = .T.
FontBold = .F.
FontName = "MS Sans Serif"
FontSize = 8
BackStyle = 1
Caption = " Report Output: "
Height = 15
Left = 20
Top = 7
Width = 78
BackColor = 192,192,192
Name = "lblReportOutput"
textboxtextboxtxtFileNamefrmPrintReport�FontBold = .F.
FontName = "MS Sans Serif"
FontSize = 8
Enabled = .F.
Height = 23
Left = 102
Top = 81
Width = 123
Name = "txtFileName"
labellabelLabel2frmPrintReport�AutoSize = .T.
FontBold = .F.
FontName = "MS Sans Serif"
FontSize = 8
BackStyle = 0
Caption = "File Name:"
Height = 15
Left = 37
Top = 85
Width = 52
Name = "Label2"

commandbutton
commandbuttoncmdOKfrmPrintReport�Top = 14
Left = 261
Height = 23
Width = 72
FontBold = .F.
FontName = "MS Sans Serif"
FontSize = 8
Caption = "OK"
Default = .T.
Name = "cmdOK"
PROCEDURE Click
#DEFINE NO_REPORT_LOC "A report must be specified in the cReport property of this form."
#DEFINE NO_FILENAME_LOC "You must enter a file name."

DO CASE
	CASE EMPTY(THISFORM.cReport) 
		=MESSAGEBOX(NO_REPORT_LOC)
		
	CASE THISFORM.opgReportOutput.value = 1
		THISFORM.Release
		REPORT FORM (THISFORM.cReport) PREVIEW NOCONSOLE
		
	CASE THISFORM.opgReportOutput.value = 2
		THISFORM.Release
		REPORT FORM (THISFORM.cReport) TO PRINTER NOCONSOLE
		
	CASE THISFORM.opgReportOutput.value = 3
		IF EMPTY(THISFORM.txtFileName.value) THEN
			=MESSAGEBOX(NO_FILENAME_LOC)
			THISFORM.txtFileName.SetFocus
		ELSE
			THISFORM.Release
			REPORT FORM (THISFORM.cReport) ;
				TO FILE (THISFORM.txtFileName.value) ;
				ASCII NOCONSOLE
		ENDIF
	
ENDCASE
ENDPROC
}�� dd~g%���Ui
H�
�b��C�����k�L��C�@A report must be specified in the cReport property of this form.�x�����������
����?�����9����������
����?����(!9��������b�%�C������.�'��C�You must enter a file name.�x��
������^�
����?�����(�����9���UTHISFORMCREPORTOPGREPORTOUTPUTVALUERELEASETXTFILENAMESETFOCUSClick,��1�!�r�r�rQq����AB1)d
commandbutton
commandbutton	cmdCancelfrmPrintReport�Top = 42
Left = 261
Height = 23
Width = 72
FontBold = .F.
FontName = "MS Sans Serif"
FontSize = 8
Cancel = .T.
Caption = "Cancel"
Name = "cmdCancel"
,PROCEDURE Click
THISFORM.Release
ENDPROC
JArial, 0, 9, 5, 15, 12, 13, 3, 0
MS Sans Serif, 0, 8, 5, 13, 11, 11, 2, 0
sPROCEDURE Click
=MESSAGEBOX("We should add in the Save As dialog here when the Save As class is done.")
ENDPROC

commandbutton�Top = 83
Left = 228
Height = 19
Width = 19
FontBold = .F.
FontName = "MS Sans Serif"
FontSize = 8
Caption = "..."
Name = "cmdSaveAs"
	�� ��m�%(�
s�U%T����-��T����-��UTHISFORMTXTFILENAMEENABLED	CMDSAVEAS%T����-��T����-��UTHISFORMTXTFILENAMEENABLED	CMDSAVEAS%T����a��T����a��UTHISFORMTXTFILENAMEENABLED	CMDSAVEASoptPreview.Click,��optPrinter.Click���
optFile.Click���1221`���3	)�