Question

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

我已经搜索过看看这样的事情是否可行，但似乎并非如此。所以，我想我会问这里万一有人知道这样做的方法。

Answer 1

您必须保存Printer SetupString。然后在下次打印时使用该SetupString初始化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

没有打印机对话框的Xojo打印

1 个答案: