delphi 窗体右键弹出“打印”要直接横向打印，不要跳出打印设置怎么弄，解释详细点，我是初学者

delphi 窗体右键弹出“打印”要直接横向打印，不要跳出打印设置怎么弄，解释详细点，我是初学者

i := Printer.Printers.IndexOf('printer name'); // 代入打印机名字
if i >= 0 then Printer.PrinterIndex := i; // 设定打印机
Printer.Orientation := poLandscape; //设定横向打印

p.s. 你可以用 Printer.Printers.GetText; 来看你电脑连接的打印机

我晕，你直接在我上次的回答上追问就行拉，这些放在按钮的事件里面，比如说: procedure tmainform.printbuttonclick(sender: tobject); begin i := printer.printers.indexof('printer name'); // 代入打印机名字 if i >= 0 then printer.printerindex := i; // 设定打印机 printer.orientation := polandscape; //设定横向打印 printer.begindoc; // 设定打印内容 // set up a large blue font canvas.font.size := 20; canvas.font.color := clblue; // write out the page size canvas.textout(20, 20, 'page width = '+inttostr(pagewidth)); // finish printing printer.enddoc; end;