Tentukan Default Printer

Jumlah printer pada windows belum tentu satu. Terkadang dalam membuat suatu program, kita menginginkan program tersebut dicetak oleh printer tertentu, misal printer dot matrix, sehingga perlu dibuat sebuah fungsi untuk melakukan pemilihan printer.

Program seperti PrinterIndex, GetPrinter adalah fungsi-fungsi yang terdapat dalam unit printers. Anda harus menuliskan deklarasinya di bagian uses.

Program akan berjalan sebagai berikut:

Pada saat dijalankan, program akan mencari seluruh printer yang terdaftar pada komputer tersebut dengan dan menuliskan pada ComboBox1

ComboBox1.Items.AddStrings( Printer.Printers);
Program akan mencari default printer saat ini dan meletakkan di kotak edit edit1.

edit1.Text := GetDefaultPrinter;
Program akan menjadikan default printer saat ini tampil di ComboBox1

ComboBox1.ItemIndex := comboBox1.Items.IndexOf(edit1.Text);
Jika diinginkan, pengguna aplikasi dapat menentukan default printer dengan memilih pada ComboBox1 dan menekan tombol Button1.

SetDefaultPrinter(ComboBox1.Text);
Saat tombol Button1 ditekan, maka tulisan di edit1 akan diperbaharui sesuai dengan default yang dipilih pengguna di ComboBox1

edit1.Text := GetDefaultPrinter;

Program Selengkapnya:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils,  Classes, Controls, Forms,
  StdCtrls, Printers;

type

TForm1 = class(TForm)
    ComboBox1: TComboBox;
    Button1: TButton;
    Edit1: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject); private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function GetDefaultPrinter: string;
begin
    Printer.PrinterIndex := -1;
    Result := Printer.Printers.Strings[Printer.PrinterIndex];
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
    ComboBox1.Style := csDropDownList;
    ComboBox1.Items.AddStrings( Printer.Printers);
    edit1.Text := GetDefaultPrinter;
    ComboBox1.ItemIndex := comboBox1.Items.IndexOf(edit1.Text);
end;

procedure SetDefaultPrinter(PrinterName: string);
var
    I: Integer;
    Device: PChar;
    Driver: PChar;
    Port: PChar;
    HdeviceMode: THandle;
    aPrinter: TPrinter;
begin
    Printer.PrinterIndex := -1;
    GetMem(Device, 255);
    GetMem(Driver, 255);
    GetMem(Port, 255);
    aPrinter := TPrinter.Create;

try
       for I := 0 to Printer.Printers.Count - 1 do
      begin
         if Printer.Printers[i] = PrinterName then
        begin
            aprinter.PrinterIndex := i;
            aPrinter.getprinter(device, driver, port, HdeviceMode);
            StrCat(Device, ',');
            StrCat(Device, Driver);
            StrCat(Device, Port);
            WriteProfileString('windows', 'device', Device);
            StrCopy(Device, 'windows');
            SendMessage(HWND_BROADCAST, WM_WININICHANGE,
            0, Longint(@Device));
        end;
      end;
  finally
      aPrinter.Free;
  end;

FreeMem(Device, 255);
    FreeMem(Driver, 255);
    FreeMem(Port, 255);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
    SetDefaultPrinter(ComboBox1.Text);
    edit1.Text :=  GetDefaultPrinter;
end;

end.

Related Articles :

0 comments:

Posting Komentar

Cari Disini

Kontak

Terpopuler

Daftar Blog Saya

Komentar