【VB6】打印机设置页边距

  Printer.ScaleLeft = -0.75 * 1440
  Printer.ScaleTop = -0.5 * 1440
  Printer.CurrentX = 0
  Printer.CurrentY = 0
  '一些打印操作
  Printer.EndDoc

打印效果