关于TDBgrid 7.0的问题

Question

建立两个按钮，实现打印和打印机设置
Private Sub sscmdPrint_Click(Index As Integer)
     Select Case Index
     Case 0
         With tdgrid
              .PrintInfo.PageHeaderFont.Size = 16
              .PrintInfo.PageHeaderFont.Bold = True
              .PrintInfo.PageHeaderFont.Italic = True
              .PrintInfo.PageHeader = "表头         "
              .PrintInfo.PageFooter = "打印日期:  " & Format(Now(), "Long Date")
              .PrintInfo.RepeatColumnHeaders = True
              .PrintInfo.RepeatGridHeader = True
              .PrintInfo.PrintPreview
         End With
     Case 1
         tdgrid.PrintInfo.PageSetup
     End SelectEnd Sub