Para iFile PUBLIC ocetak ocetak=NEWOBJECT("cetak") ocetak.Init(iFile) ocetak.Show RETURN ************************************************** *-- Form: cetak (c:\gasy\libs\tcetak.scx) *-- ParentClass: form *-- BaseClass: form *-- Time Stamp: 05/21/04 12:27:07 AM * DEFINE CLASS cetak AS form Height = 216 Width = 478 MinHeight = 216 MinWidth = 478 DoCreate = .T. AutoCenter = .T. BorderStyle = 3 Caption = "Print" ControlBox = .F. Icon = "bmps\note07.ico" WindowType = 1 THEMES=.F. Name = "Cetak" namafile = .F. ADD OBJECT cmd1 AS commandbutton WITH ; AutoSize = .T., ; Top = 10, ; Left = 14, ; Height = 36, ; Width = 63, ; FontBold = .T., ; FontSize = 12, ; Caption = "\<View", ; TabIndex = 1, ; SpecialEffect = 2, ; Name = "cmd1" ADD OBJECT cmd2 AS commandbutton WITH ; AutoSize = .T., ; Top = 46, ; Left = 14, ; Height = 36, ; Width = 135, ; FontBold = .T., ; FontSize = 12, ; Caption = "Default \<Printer", ; TabIndex = 2, ; SpecialEffect = 2, ; Name = "cmd2" ADD OBJECT cmd3 AS commandbutton WITH ; AutoSize = .T., ; Top = 82, ; Left = 14, ; Height = 36, ; Width = 128, ; FontBold = .T., ; FontSize = 12, ; Caption = "\<Select Printer", ; TabIndex = 3, ; SpecialEffect = 2, ; Name = "cmd3" ADD OBJECT label1 AS label WITH ; AutoSize = .T., ; BackStyle = 0, ; Caption = "Rangkap:", ; Height = 17, ; Left = 26, ; Top = 182, ; Width = 55, ; TabIndex = 9, ; Name = "Label1" ADD OBJECT label2 AS label WITH ; AutoSize = .T., ; BackStyle = 0, ; Caption = "Halaman:", ; Height = 17, ; Left = 139, ; Top = 182, ; Width = 56, ; TabIndex = 10, ; Name = "Label2" ADD OBJECT rangkap AS spinner WITH ; Height = 24, ; Left = 84, ; TabIndex = 5, ; Top = 180, ; Width = 48, ; Value = 1, ; Name = "Rangkap" ADD OBJECT hal1 AS spinner WITH ; Height = 24, ; Left = 199, ; TabIndex = 6, ; Top = 180, ; Width = 48, ; Value = 1, ; Name = "Hal1" ADD OBJECT hal2 AS spinner WITH ; Height = 24, ; Left = 288, ; TabIndex = 7, ; Top = 180, ; Width = 61, ; Value = 6500, ; Name = "Hal2" ADD OBJECT label3 AS label WITH ; AutoSize = .T., ; BackStyle = 0, ; Caption = "S/d", ; Height = 17, ; Left = 261, ; Top = 182, ; Width = 20, ; TabIndex = 11, ; Name = "Label3" ADD OBJECT cmd4 AS commandbutton WITH ; AutoSize = .T., ; Top = 118, ; Left = 14, ; Height = 36, ; Width = 103, ; FontBold = .T., ; FontSize = 12, ; Caption = "\<Modifikasi", ; TabIndex = 4, ; SpecialEffect = 2, ; Name = "cmd4" ADD OBJECT selesai AS commandbutton WITH ; AutoSize = .F., ; Top = 178, ; Left = 370, ; Height = 27, ; Width = 96, ; Caption = "E\<xit", ; TabIndex = 8, ; Name = "selesai" ADD OBJECT line1 AS line WITH ; Height = 0, ; Left = 0, ; Top = 164, ; Width = 480, ; Name = "Line1" PROCEDURE Init PARAMETERS iFile Thisform.Namafile=iFile ENDPROC PROCEDURE cmd1.Click Cetaklah('',Thisform.Namafile,1,1,6500,1) ENDPROC PROCEDURE cmd2.Click Cetaklah('',Thisform.Namafile,2,Thisform.Hal1.Value,Thisform.Hal2.Value,Thisform.Rangkap.Value) ENDPROC PROCEDURE cmd3.Click Cetaklah('',Thisform.Namafile,3,Thisform.Hal1.Value,Thisform.Hal2.Value,Thisform.Rangkap.Value) ENDPROC PROCEDURE cmd4.Click CHEKFOLDER(THISFORM.NAMAFILE) MODIFY REPORT (Thisform.Namafile) ENDPROC PROCEDURE cmd4.RightClick IF DADI(56) Gbrowse() ENDIF ENDPROC PROCEDURE cmd4.Init This.Enabled=Dadi(54) ENDPROC PROCEDURE selesai.Click Thisform.Release ENDPROC ENDDEFINE * *-- EndDefine: cetak **************************************************