List 7-36　FormPrintPreviewフォームのSetTitleプロシージャ

---

  1： Private g_Title As String
  2： Private g_DGrid As DataGrid
  3： 
  4： Public Sub SetTitle(ByRef Title As String, ByRef DGrid As DataGrid)
  5：     ' 表示すべきデータを設定する
  6：     g_Title = Title
  7：     Set g_DGrid = DGrid
  8： End Sub