Printing Xojo无打印机打印对话框

我想直接打印到附加标签打印机，而不显示打印对话框

---

我一直想知道这样的事情是否可能，但似乎不可能。因此，我想我会在这里询问，以防有人知道一种方法。

您必须保存打印机设置字符串。然后，下次进行打印时，使用该设置字符串初始化PrinterSetup对象。请参见下面从工作项目复制的实际代码：

 'Now print the mail barcode
  dim ps as PrinterSetup
  dim page as Graphics
  ps = LabelPrinter  //See below 
  if ps<>nil then
    page = OpenPrinter(ps)
    if page<>nil then
      //send stuff to the printer here



Public Function LabelPrinter() as PrinterSetup
  if gLabelSetup<>"" then  //gLabelSetup is saved in preferences
    dim ps as new PrinterSetup
    ps.SetupString = gLabelSetup
    return ps
  else
    return nil
  end if
End Function

”现在打印邮件条形码
将ps调暗为打印机设置
将页面变暗为图形
ps=LabelPrinter//见下文
如果psnil那么
页面=OpenPrinter（ps）
如果pagenil那么
//把东西送到这里的打印机
公共函数LabelPrinter（）作为PrinterSetup
如果gLabelSetup为“”，则//gLabelSetup保存在首选项中
将ps调暗为新打印机设置
ps.SetupString=gLabelSetup
返回ps
其他的
归零
如果结束
端函数

哦，是的。事实上，我在很多年前就这样做了，完全忘记了怎么做。谢谢你的代码和复习！