vb打印末页注脚时横打能出来，竖打能预览就是不能打印出来

rectbox.top = temptop * sfbl + zzrect.top * sfbl + (myhs(dyys) - 2) * 17 * sfbl  'temptop为页眉顶部，zzrect.top为纸张上边距+最大打印页数的行数*行高*缩放比例
 '打印表注左1*****************************************************************************************************
MsgBox rectbox.top
  If btymyjbl.ym31caption <> "" Or btymyjbl.ym41caption <> "" Or btymyjbl.ym42caption <> "" Or btymyjbl.ym43caption <> "" And (ys = frmprint.Text2.text) Then
     If btymyjbl.ym31fontname <> "" Then
     obj.fontname = btymyjbl.ym31fontname
     End If
     If btymyjbl.ym31fontsize <> 0 Then
    obj.fontsize = btymyjbl.ym31fontsize * sfbl
    Else
    obj.fontsize = obj.fontsize * sfbl
     End If
     X = DT_TOP Or DT_LEFT Or DT_SINGLELINE
     rectbox.bottom = rectbox.top + (obj.ScaleY(obj.TextHeight("AA"), vbTwips, vbPixels))
  End If
  If btymyjbl.ym31color = 0 Then
    SetTextColor obj.hDC, &H0&
  Else
    SetTextColor obj.hDC, btymyjbl.ym31color
  End If
  ymyj = getymyj(btymyjbl.ym31caption, ys, dyys)
  Call DrawText(obj.hDC, ymyj, LenB(StrConv(ymyj, vbFromUnicode)), rectbox, X)
 '打印表尾中1
  If btymyjbl.ym32caption <> "" Or btymyjbl.ym41caption <> "" Or btymyjbl.ym42caption <> "" Or btymyjbl.ym43caption <> "" And (ys = frmprint.Text2.text) Then
     If btymyjbl.ym32fontname <> "" Then
      obj.fontname = btymyjbl.ym31fontname
     End If
     If btymyjbl.ym32fontsize <> 0 Then
    obj.fontsize = btymyjbl.ym32fontsize * sfbl
    Else
    obj.fontsize = obj.fontsize * sfbl
     End If
     X = DT_TOP Or DT_CENTER Or DT_SINGLELINE
     rectbox.bottom = rectbox.top + (obj.ScaleY(obj.TextHeight("AA"), vbTwips, vbPixels))
  End If
  If btymyjbl.ym32color = 0 Then
    SetTextColor obj.hDC, &H0&
  Else
    SetTextColor obj.hDC, btymyjbl.ym32color
  End If
  ymyj = getymyj(btymyjbl.ym32caption, ys, dyys)
  Call DrawText(obj.hDC, ymyj, LenB(StrConv(ymyj, vbFromUnicode)), rectbox, X)
 '打印表尾右1
  If btymyjbl.ym33caption <> "" Or btymyjbl.ym41caption <> "" Or btymyjbl.ym42caption <> "" Or btymyjbl.ym43caption <> "" And (ys = frmprint.Text2.text) Then
     If btymyjbl.ym33fontname <> "" Then
      obj.fontname = btymyjbl.ym33fontname
     End If
     If btymyjbl.ym33fontsize <> 0 Then
    obj.fontsize = btymyjbl.ym33fontsize * sfbl
    Else
    obj.fontsize = obj.fontsize * sfbl
     End If
     X = DT_TOP Or DT_RIGHT Or DT_SINGLELINE
     rectbox.bottom = rectbox.top + (obj.ScaleY(obj.TextHeight("AA"), vbTwips, vbPixels))
  End If
  If btymyjbl.ym33color = 0 Then
    SetTextColor obj.hDC, &H0&
  Else
    SetTextColor obj.hDC, btymyjbl.ym33color
  End If
  ymyj = getymyj(btymyjbl.ym33caption, ys, dyys)
  Call DrawText(obj.hDC, ymyj, LenB(StrConv(ymyj, vbFromUnicode)), rectbox, X)
  temp3top = rectbox.bottom
  If btymyjbl.ym31caption = "" And btymyjbl.ym32caption = "" And btymyjbl.ym33caption = "" Then
    temp3top = rectbox.top
  Else
    temp3top = temp3top + obj.ScaleY(22.5, vbTwips, vbPixels) * sfbl
  End If
   --------------------编程问答-------------------- 自己顶啊，不是有人说vb很简单吗？哪如云的高手哪去了？还是不屑回答？不明白说vb简单的人都做了些什么惊天动地的软件来了！ --------------------编程问答-------------------- 再顶**********************************************************************************

补充：VB ,  数据库(包含打印，安装，报表)