Printer.CurrentX =  700                      ' слева
Printer.CurrentY =  720                      ' справа
Printer.PaperSize = vbPRPSA4           ' формат листа
Printer.Orientation = vbPRORPortrait   ' ориентация
Me.PrintForm

    ' сдвину всю форму правее и её объекты
    Me.Width = Me.Width +  1000 
    Dim ob
    For Each ob In Me
      ob.Left = ob.Left +  1000 
    Next
    
   Me.BackColor = &H80000005
   Me.Pechat.Visible = False
   Me.PrintForm
   Me.Pechat.Visible = True
   Me.BackColor = &H80000016
   
   ' верну на прежнее место
    For Each ob In Me
      ob.Left = ob.Left -  1000 
    Next
    Me.Width = Me.Width -  1000