天空小狐 - 寫程式

DataWindow ldw_preview

IF dw_1.RowCount () <= 0 THEN
   MessageBox (gn_app.of_GetMsgTitle (), "請先選取資料！") 
   RETURN
END IF

IF IsValid (in_printsrv) THEN
   in_printsrv.of_SetPrintSource ("dw_name")
   dw_1.ShareData (in_printsrv.of_GetViewDS ())
   in_printsrv.of_SetPreviewWindow ("w_smr_report")
   in_printsrv.of_OpenPreViewSheet ()
   ldw_preview = in_printsrv.of_getpreviewdatawindow ()
   ldw_preview.object.t_9.text = string(s1) + " ～ " + string(s2)  //修改報表上欄位資料
END if

--------------------

IF Not dw_1.RowCount() <= 0 THEN
 
   s_pass s_pass
   s_pass.po [1] = dw_1
   Message.of_set_pass (s_pass)

   Open (w_print_interface)
 
ELSE
 
 messagebox("","無資料可列印!!")
 
END IF