更改預設印表機

bestlong

1. function GetDefaultPrinter: string;
   
2. var  
   
3.   ResStr: array[0..255] of Char;
   
4. begin
   
5.   GetProfileString('Windows', 'device', '', ResStr, 255);
   
6.   Result := StrPas(ResStr);
   
7. end;
   
8. 
   
9. procedure SetDefaultPrinter1(NewDefPrinter: string);
   
10. var
    
11.   ResStr: array[0..255] of Char;
    
12. begin
    
13.   StrPCopy(ResStr, NewdefPrinter);
    
14.   WriteProfileString('windows', 'device', ResStr);
    
15.   StrCopy(ResStr, 'windows');
    
16.   SendMessage(HWND_BROADCAST, WM_WININICHANGE, 0, Longint(@ResStr));
    
17. end;
    
18. 
    
19. procedure SetDefaultPrinter2(PrinterName: string);
    
20. var  
    
21.   I: Integer;
    
22.   Device: PChar;   
    
23.   Driver: PChar;
    
24.   Port: PChar;   
    
25.   HdeviceMode: THandle;
    
26.   aPrinter: TPrinter;   
    
27. begin
    
28.   Printer.PrinterIndex := -1;   
    
29.   GetMem(Device, 255);
    
30.   GetMem(Driver, 255);   
    
31.   GetMem(Port, 255);
    
32.   aPrinter := TPrinter.Create;
    
33.   try
    
34.     for I := 0 to Printer.Printers.Count - 1 do
    
35.     begin
    
36.       if Printer.Printers[I] = PrinterName then
    
37.       begin
    
38.         aprinter.PrinterIndex := I;
    
39.         aPrinter.getprinter(device, driver, port, HdeviceMode);
    
40.         StrCat(Device, ',');
    
41.         StrCat(Device, Driver);
    
42.         StrCat(Device, Port);
    
43.         WriteProfileString('windows', 'device', Device);
    
44.         StrCopy(Device, 'windows');
    
45.         SendMessage(HWND_BROADCAST, WM_WININICHANGE, 0, Longint(@Device));
    
46.       end;   
    
47.     end;
    
48.   finally
    
49.     aPrinter.Free;
    
50.   end;   
    
51.   FreeMem(Device, 255);
    
52.   FreeMem(Driver, 255);
    
53.   FreeMem(Port, 255);
    
54. end;

複製代碼

1. sprint := GetDefaultPrinter;     //取得原始預設印表機   
   
2. SetDefaultPrinter2(sPrnName);    // 更改預設印表機   
   
3. ShellExecute(Application.Mainform.Handle,'Print',Pchar(要列印的pdf 路徑),nil, nil, SW_SHOW);               
   
4. SetDefaultPrinter2(sprint);   // 恢復原始預設印表機   

複製代碼

http://delphi.ktop.com.tw/board.php?cid=30&fid=69&tid=91080