150 分,急!急!有没有人会?问在线富翁个小问题,请解答,谢谢. (50分)

我使用QUICKREP 控件,把纸设置为横放,即AGE属性 为 polandscape,
然后Quickrep1.Preview;
御览时纸张为横放,横放送纸到打印机,单击PRINT 按钮打出来时不是横的,为竖放,
御览时见到的样子与打印出来的不一样,简单的说不能所见即所得.
怎么办?
急..............
问:有没有什么语句或设置解决该问题?

打印纸不必横放，否则就不是横行打印了。

打印纸必须横放.
打的是证件.

竖放也不行嘛？（估计我这是废话）

行,
但是要求为横放.

纸张横放竖放是相对的。想想啊。你给打印机一个命令，要其横打，打印就横打，如果
你把纸张又放成横的。不是变成竖的了么？
再想想，如果是激光打印机呢？纸张都是一样的放置，你给打印机横打命令，它就横打
竖打就竖打。

同意楼上的观点

lovefox同志说得很对：）

御览时见到的样子与打印出来的不一样,简单的说不能所见即所得.
怎么办?
急..............

纸跟平时一样放，只要设成横放，打印时自然会按横放的方式打嘛，

我使用的是 OKI 8358SC 平推打印机.
必须把 B4 纸横放才行.

使用自定义类型。
PAGE属性 为 poPortrint;,
做如下函数即可。


转贴自 wutianbin

uses
Windows,
WinSpool, //一定要 uses 这玩意
SysUtils,
Registry,
Classes;


//=================================
function TForm1.GetDeviceName():String;
var MyReg: TRegistry;
szDeviceName: String;
begin

MyReg := TRegistry.Create;
try
MyReg.RootKey := HKEY_CURRENT_CONFIG;
if MyReg.OpenKey('/System/CurrentControlSet/Control/Print/Printers',False) then

szDeviceName:=MyReg.ReadString('Default')
else

szDeviceName:='';
except
MyReg.Free;
end;

result:=szDeviceName;
end;


//===================================
function TForm1.GetPortName(): String;
var MyReg: TRegistry;
szPortName: String;
begin

MyReg := TRegistry.Create;
try
MyReg.RootKey := HKEY_LOCAL_MACHINE;
if MyReg.OpenKey('/System/CurrentControlSet/Control/Print/Printers/'+GetDeviceName(),False) then

szPortName:=MyReg.ReadString('Port')
else

szPortName:='';
Except
MyReg.Free;
end;

result:=szPortName;
end;



//================================
//nOrient 打印方向
//nHandle 打印机的Handle
// 调用 SetPaperSize（2000，3000，1，printer.handle）;
// 调用后，修改系统的打印机的纸张大小的设置。
function TForm1.SetPaperSize(var nWidth,nHeight,nOrient:Word;var nHandle: THandle):integer;

var
// szPrinterKey: array[0..99] of Char;
szDeviceName: String;
szPort: String;
// cbBuffer: DWORD;
// dwRV: DWORD;
dwPapers: DWord;
lpwPapers: array[0..255] of Word;
fSupportUserDefind: Boolean;
fSupportA3: Boolean;
fSupportA4: Boolean;
fSupportB5: Boolean;
hDriver: THandle;
hMem: HGLOBAL;
lpDevMode: Pdevicemode;
a1: Pdevicemode;
i: integer;
begin

fSupportUserDefind:=FALSE;
fSupportA3:=FALSE;
fSupportA4:=FALSE;
fSupportB5:=FALSE;

//取当前默认打印机设备名
szDeviceName:=GetDeviceName();
if szDeviceName='' then

result:=-1;

//取打印机端口
szPort:=GetPortName();
if szPort='' then

result:=-2;

//取打印机支持的全部纸型
dwPapers:=DeviceCapabilities(PChar(szDeviceName),PChar(szPort),DC_PAPERS,@lpwPapers,nil);
if (dwPapers<1)or(dwPapers>256) then

result:=-3;

//判断打印机是否支持自定义、A3、A4、B5纸型
while (dwPapers > 0)do

begin

case DWORD(lpwPapers[dwPapers]) of
DMPAPER_USER: fSupportUserDefind:=TRUE;
DMPAPER_A3: fSupportA3:=TRUE;
DMPAPER_A4: fSupportA4:=TRUE;
DMPAPER_B5: fSupportB5:=TRUE;
end;

dwPapers:=dwPapers-1;
end;


//取打印机的DeviceMode
a1:=nil;
if not(OpenPrinter(PChar(szDeviceName),hDriver,nil)) then
result:=-4;
hMem:=GlobalAlloc(GPTR,DocumentPropertiesA(nHandle,hDriver,PChar(szDeviceName),a1^,a1^,0));
lpDevMode:=GlobalLock(hMem);
a1:=nil;
do
cumentProperties(nHandle,hDriver,PChar(szDeviceName),lpDevMode^,a1^,DM_OUT_BUFFER);

//设置纸型或大小
i:=0;
if ((nWidth=2970)and(nHeight=4200))and(fSupportA3) then
i:=1;
if ((nWidth=2100)and(nHeight=2970))and(fSupportA4) then
i:=i+2;
if ((nWidth=1820)and(nHeight=2570))and(fSupportB5) then
i:=i+3;

case i of
1: begin
//A3
lpDevMode.dmFields:=DM_PAPERSIZE;
lpDevMode.dmPaperSize:=DMPAPER_A3;
end;

2: begin
//A4
lpDevMode.dmFields:=DM_PAPERSIZE;
lpDevMode.dmPaperSize:=DMPAPER_A4;
end;

3: begin
//B5
lpDevMode.dmFields:=DM_PAPERSIZE;
lpDevMode.dmPaperSize:=DMPAPER_B5;
end;

else

if fSupportUserDefind then

begin

lpDevMode.dmFields:=DM_PAPERSIZE or DM_PAPERWIDTH or DM_PAPERLENGTH;
lpDevMode.dmPaperSize:=DMPAPER_USER;
lpDevMode.dmPaperWidth:=nWidth;
lpDevMode.dmPaperLength:=nHeight;
end
else

lpDevMode.dmFields:=0;
end;


//设置方向
case nOrient of
0: begin

lpDevMode.dmFields:=lpDevMode.dmFields or DM_ORIENTATION;
lpDevMode.dmOrientation:=DMORIENT_PORTRAIT;
end;

1: begin

lpDevMode.dmFields:=lpDevMode.dmFields or DM_ORIENTATION;
lpDevMode.dmOrientation:=DMORIENT_LANDSCAPE;
end;

end;


a1:=nil;
do
cumentProperties(nHandle,hDriver,PChar(szDeviceName),a1^,lpDevMode^,DM_IN_BUFFER or DM_UPDATE);
GlobalUnlock(hMem);
GlobalFree(hMem);
ClosePrinter(hDriver);

result:=1;
end;

终于想通了，使用自定义，横设置为竖，竖设置为横。
谢谢大家。