Xojo Print Without Printer Dialog

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