i := Printer.Printers.IndexOf('printer name'); // 代入打印机名字if i >= 0 then Printer.PrinterIndex := i; // 设定打印机Printer.Orientation := poLandscape; //设定横向打印p.s. 你可以用 Printer.Printers.GetText; 来看你电脑连接的打印机