其实你可以生成一个指向TDeviceMode结构的变量(TDeviceMode结构包含了打印机驱动程序的初始化信息和环境数据)
var
devmode:PdeviceMode;
begin
.......
DevMode:=globalLock(deviceMode);
try
devmode^.dmfields:=dmFields or DM_ORIENTATION;
devmode^.dmOrientation:=DMORIENT_LANDSCAPE;//设置打印机的打印方向
finally
GlobalUnlock(ADeviceMode);
end;
........