数据导出问题，请指教。

Dim i As Integer
  Dim j As Integer
  Dim k As Integer
  Dim xlApp As Excel.Application
  Dim xlBook As Excel.Workbook
  Dim xlSheet As Excel.Worksheet
  Set xlApp = New Excel.Application
  Set xlBook = xlApp.Workbooks.Add
  Set xlSheet = xlBook.Worksheets(1)
  xlSheet.Columns.AutoFit
  Me.MousePointer = 11
  For k = 0 To DGJM.Columns.Count - 1
  xlSheet.Cells.NumberFormatLocal = "@" '设置为文本格式
  xlSheet.Cells(1, k + 1) = DGJM.Columns(k).Caption
  xlSheet.Range("A1", "M1").HorizontalAlignment = 3 'sheet1为sheet对象
  xlSheet.Range("A1", "M1").VerticalAlignment = 1
  xlSheet.Range("A1", "M1").Merge
  xlSheet.Range("A1", "M1") = "表头内容"
  xlSheet.Range("A2", "M2").Merge
  xlSheet.Range("A2", "M2") = "表头内容"
  xlSheet.Range("A3", "M3").Merge
  xlSheet.Range("A3", "M3") = Format(DTPicker1.Value, "YYYYMMDD")
  xlSheet.Range("A4") = "12"
  xlSheet.Range("B4") = "32"
  xlSheet.Range("C4") = "32"
  xlSheet.Range("D4") = "432"
  xlSheet.Range("E4") = "654"
  xlSheet.Range("F4") = "654"
  xlSheet.Range("G4") = "7"
  xlSheet.Range("H4") = "543"
  xlSheet.Range("I4") = "24"
  xlSheet.Range("J4") = "432"
  xlSheet.Range("K4") = "432"
  xlSheet.Range("L4") = "432"
  xlSheet.Range("M4") = "432"
  Next
  DGJM.Scroll 0, -DGJM.FirstRow
  DGJM.Row = 0
  For i = 0 To DGJM.ApproxCount - 1  For j = 0 To DGJM.Columns.Count - 1
  DGJM.Col = j
  xlSheet.Cells(i + 5, j + 1) = DGJM.Text
  Next
  If i < DGJM.ApproxCount - 1 Then
  DGJM.Row = DGJM.Row + 1
  End If
Next
  Me.MousePointer = 0
  MsgBox "导出成功！", vbOKOnly, "提示"
  xlApp.Visible = True
  Set xlApp = Nothing
  Set xlBook = Nothing
  Set xlSheet = Nothing
上面是数据导出的代码，但现在要实现导出的时候从A3单元格下面全部要有边框，也就是实现打印出来的内容有边框效果请指教谢谢