如何用程序改变打印机的默认设置。(100分)

F

FlyForLove

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-17

• #1

用documentproperties，取得devmode的信息，
设置devmode的成员参数，
在用documentproperties，更新devmode,
我如何把我的设置，设成windows的默认设置？
也就是在设置后，所有的默认打印都是按照我设置的默认设置进行。

 

仙

仙剑奇侠

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-17

• #2

try this
TPrinter类应该能解决你的问题，不过我没试，你看看吧

 

Y

yanyandt2

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-17

• #3

TPrinter 不可能做到
因为 TPrinter 作用范围是你的程序里

 

F

FlyForLove

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-17

• #4

对啊，我在程序中可以动态改变打印设置，但是我怎么把设置改称默认设置呢？
因为程序使用了pdf的ocx控件，打印pdf文件的时候，它会调用默认设置，
因为我在程序中要打印不同设置的pdf文件，所以只能动态改变打印机的默认设置。

 

F

FlyForLove

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-17

• #5

不是吧！！！！！！！！
没人会？
我从csdn一直问到大富翁，都没人理我？！

 

W

wwwwb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-17

• #6

恐怕要改注册表

 

F

FlyForLove

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-17

• #7

楼上的，要改注册表，改什么地方？
打印机的默认设置，总应该保存到一个地方，
它是以什么形式保存的？保存到什么地方？
请大家指点一下！

 

W

w128

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-17

• #8

procedure TForm1.Button1Click(Sender: TObject);
var
WinIni : TIniFile;
WinIniFileName : array[0..MAX_PATH] of char;
s : array[0..64] of char;
begin
GetWindowsDirectory(WinIniFileName, sizeof(WinIniFileName));
StrCat(WinIniFileName, '/win.ini');
WinIni := TIniFile.Create(WinIniFileName);
try
WinIni.WriteString('windows','device','HP LaserJet Series II,HPPCL,LPT1:');
finally
WinIni.Free;
end;
StrCopy(S, 'windows');
SendMessage(HWND_BROADCAST, WM_WININICHANGE, 0, LongInt(@S));
end;

 

F

FlyForLove

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-17

• #9

楼上的大哥，你的是用来改默认打印机，而不是改打印机的设置。