VB利用EXCEL打印预览问题

Set xlApp = CreateObject("Excel.Application")
  xlApp.Visible = True '让Excel可见
  Set xlBook = xlApp.Workbooks.Open(App.Path & "\123.xlt") '打开Excel模板
  xlBook.ActiveSheet.Cells(3, 2) = txtName.Text
  xlBook.ActiveSheet.Cells(3, 4) = Comsex.Text
  xlBook.Sheets("sheet1").Select
  xlApp.ActiveSheet.Pictures.Insert(App.Path & "\temp.jpg").Select
  Set Rng = xlApp.Range("L3:M9")
  With xlApp.Selection
  .ShapeRange.LockAspectRatio = msoFalse
  .ShapeRange.Height = Rng.Height
  .ShapeRange.Width = Rng.Width - 2
  .Top = Rng.Top + 1
  .Left = Rng.Left + 1
  End With
  xlBook.PrintPreview '打印预览
  xlBook.Close False '关闭工作簿
  xlApp.Quit '关闭Excel
  Set xlBook = Nothing
  Set xlApp = Nothing
以上代码是打印预览，现在的问题如何实现只预览和打印指定的单元格，如只预览和打印(A1,H11)。
如果要实现赋值以后直接打印，不预览应该如何做？非常感谢高手指点一下。谢谢。

VB code

xlApp.ActiveSheet.PageSetup.PrintArea = "$A$1:$H$11"    '设置打印区域
xlApp.ActiveSheet.PrintOut    '打印