Cetak Semua Jenis Dokumen Menggunakan Delphi

Jika Anda Delphi aplikasi perlu beroperasi pada berbagai jenis file, salah satu tugas yang mungkin Anda miliki untuk aplikasi Anda adalah untuk memungkinkan pengguna aplikasi untuk mencetak file, apa pun jenis file tersebut.

Sebagian besar aplikasi berorientasi dokumen, seperti MS Word, MS Excel atau Adobe dapat dengan mudah mencetak dokumen yang dibuat dalam program itu. Sebagai contoh, Microsoft Word menyimpan teks yang Anda tulis dalam dokumen dengan ekstensi DOC. Karena Word menentukan apa isi "mentah" dari file .DOC, ia tahu cara mencetak file .DOC. Hal yang sama berlaku untuk semua jenis file "diketahui" yang menyimpan beberapa informasi yang dapat dicetak.

Bagaimana jika Anda perlu mencetak berbagai jenis dokumen / file dari aplikasi Anda? Bisakah Anda tahu cara mengirim file ke printer agar dicetak dengan benar?

Kita dapat bertanya kepada Windows aplikasi apa yang dapat dicetak, misalnya file PDF. Atau, lebih baik lagi, kita dapat memberi tahu Windows, ini satu file PDF, kirimkan ke aplikasi yang terkait / yang bertanggung jawab untuk mencetak file PDF.

Untuk melakukan ini, buka Windows Explorer, navigasikan ke direktori yang berisi beberapa file yang dapat dicetak. Untuk sebagian besar jenis file di sistem Anda, ketika Anda mengklik kanan file di Windows Explorer, Anda akan menemukan perintah "Print". Menjalankan perintah Print shell akan menghasilkan file yang dikirim ke printer default. Nah, itulah yang kami inginkan: untuk jenis file, panggil metode yang akan mengirim file ke aplikasi terkait untuk dicetak. Fungsi yang kami kejar adalah fungsi API ShellExecute.

Namun, ShellExecute dapat melakukan lebih banyak lagi. ShellExecute dapat digunakan untuk meluncurkan aplikasi, buka Windows Explorer, mulai pencarian yang dimulai di direktori yang ditentukan, dan — apa yang paling menarik bagi kami — cetak file yang ditentukan.

Menggunakan panggilan di atas, dokumen "document.doc" yang terletak di root drive C akan dikirim ke printer default Windows. ShellExecute selalu menggunakan printer default untuk tindakan "cetak". Bagaimana jika Anda perlu mencetak ke printer yang berbeda, bagaimana jika Anda ingin mengizinkan pengguna untuk mengganti printer?

Sebelum Anda menyalin dan menempel: variabel global Printer (tipe TPrinter) yang tersedia di semua program Delphi dapat digunakan untuk mengelola pencetakan apa pun yang dilakukan oleh suatu aplikasi. Printer didefinisikan dalam unit "printer", ShellExecute didefinisikan dalam unit "shellapi".

1. Jatuhkan TComboBox pada formulir. Beri nama "cboPrinter". Setel Gaya ke csDropDownLidt
2. Masukkan dua baris berikutnya dalam handler OnCreate form:

   // memiliki printer yang tersedia di kotak kombocboPrinter. Item. Tentukan (printer. Printer);// pra-pilih printer default / aktifcboPrinter. ItemIndex: = printer. PrinterIndex;

gunakan untuk mencetak semua jenis dokumen ke printer yang ditentukan

Catatan: beberapa jenis dokumen tidak memiliki aplikasi yang terkait dengan pencetakan. Beberapa tidak memiliki tindakan "printto" yang ditentukan.