->OptionExplicit
　　PrivateSubCommand1_Click()
　　DimIAsLong,JAsLong,KAsLong
　　DimPrintStringAsString
　　ForI=0ToData1.Recordset.RecordCount-1
　　IfK=DBGrid1.VisibleRowsThen
　　DBGrid1.Scroll0,DBGrid1.VisibleRows
　　K=0
　　EndIf
　　ForJ=0ToDBGrid1.Columns.Count-1
　　PrintString=PrintString&
　　DBGrid1.Columns(J).CellText(DBGrid1.RowBookmark(K))&"/"
　　Next
　　Printer.PrintPrintString
　　PrintString=""
　　K=K 1
　　DoEvents
　　Next
　　EndSub
　　
　　PrivateSubForm_Activate()
　　Data1.Recordset.MoveLast
　　Data1.Recordset.MoveFirst
　　EndSub->->