e pra imprimir ate os botoes do formualrio tente isso

 

Private Sub Command1_Click()
  Me.PrintForm
End Sub

huahauhauhuah relaxa eu sei to te zuando, é só pra sair do estress da porra do trabalho, mas veja as dicas ae , acho que agora vai irmao, qualquer coisa posta

e nao se esqueça de se cadastrar

Outro exemplo de impressao em A4

 

Private Sub Imprimir():
  DoEvents
  keybd_event VK_MENU, 0, 0, 0
  DoEvents
  keybd_event VK_SNAPSHOT, 1, 0, 0
  DoEvents
  keybd_event VK_MENU, 0, KEYEVENTF_KEYUP, 0
  DoEvents
  HiddenPict.Picture = Clipboard.GetData(vbCFBitmap)
  Printer.Orientation = vbPRORLandscape ' imprime a folha deitada
  If NormalOption.Value Then
    wid = Printer.ScaleX(HiddenPict.ScaleWidth, ScaleMode, Printer.ScaleMode)
    hgt = Printer.ScaleY(HiddenPict.ScaleHeight, ScaleMode, Printer.ScaleMode)
    xmin = (Printer.ScaleWidth - wid) / 2
    ymin = (Printer.ScaleHeight - hgt) / 2
  Else
    aspect = HiddenPict.ScaleHeight / _
    HiddenPict.ScaleWidth
    wid = Printer.ScaleWidth
    hgt = Printer.ScaleHeight
    If hgt / wid  aspect Then
      hgt = aspect * wid
      xmin = Printer.ScaleLeft
      ymin = (Printer.ScaleHeight - hgt) / 2
    Else
      wid = hgt / aspect
      xmin = (Printer.ScaleWidth - wid) / 2
      ymin = Printer.ScaleTop
    End If
  End If
  Printer.PaintPicture HiddenPict.Picture, xmin, ymin, wid, hgt
  Printer.EndDoc
  MousePointer = vbDefault
End Sub

tem ate um exemplo aki se quiser te mando

olha eu devo ter algum problema pois nao m konsigo registar olha tentei joao_esg, joao ferreira, ferreira, esgalha, lordesg e nao dá nenhuma nao é normal....