كيف يمكن تحديد ورق الطباعة برمجياً.

Printer.SetPrinter();

unit MainUnit;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,FileCtrl,

StdCtrls,printers, Buttons;

function SHObjectProperties(Owner: HWND; Flags: UINT; ObjectName: Pointer;InitialTabName: Pointer): LongBool; stdcall;

Const

OPF_PRINTERNAME = $01;

OPF_PATHNAME = $02;

Type

TMainForm = class(TForm)

cdmPrinterProperties: TButton;

procedure cdmPrinterPropertiesClick(Sender: TObject);

private

{ Déclarations privées }

public

{ Déclarations publiques }

end;

var

MainForm: TMainForm;

implementation

{$R *.DFM}

function SHObjectProperties; external 'Shell32.dll' index 178;

//------------------------------------------------------------------------------

function ObjectPropetiesExecute(ShObjectName : String; ShTabName : String;ShDialogType : Integer):Boolean;

var

PObjectName: Pointer;

PTabName: Pointer;

begin

// on alloue de la mémoire pour PObjectName (on alloue la maximun si unicode).

GetMem(PObjectName, (Length(ShObjectName) + 1) * SizeOf(WideChar));

try

if IsWindowUnicode(GetDesktopWindow) then

// Si unicode

StringToWideChar(ShObjectName, PWideChar(PObjectName), (Length(ShObjectName) + 1))

else

// Si non unicode

StrPCopy(PChar(PObjectName), ShObjectName);

// on alloue de la mémoire pour PTabName (on alloue la maximun si unicode).

GetMem(PTabName, (Length(ShTabName) + 1) * SizeOf(WideChar));

try

if IsWindowUnicode(GetDesktopWindow) then

// Si unicode

StringToWideChar(ShTabName, PWideChar(PTabName), (Length(shTabName) + 1))

// Si non unicode

else StrPCopy(PChar(PTabName),ShTabName);

Result := SHObjectProperties(Application.Handle,ShDialogType ,PObjectName, PTabName);

finally

FreeMem(PTabName);

end;

finally

FreeMem(PObjectName);

end;

end;

procedure TMainForm.cdmPrinterPropertiesClick(Sender: TObject);

// Propriétés de l'imprimante par défaut

Var

PrintName,Drv,Port : Array[0..255] Of char;

DeviceMode : Cardinal;

begin

//Printer.SetPrinter();

Printer.GetPrinter(PrintName,Drv,Port,DeviceMode) ;

ObjectPropetiesExecute(PrintName,'',OPF_PRINTERNAME);

end;

end.