Показать диалог печати и распечатать текстовый файл

Советы » Принтеры и Печать » Показать диалог печати и распечатать текстовый файл

unit

Unit1; interface

uses

{...,}ComCtrls; type

TForm1 = class

(TForm) Button1: TButton; PrintDialog1: TPrintDialog; RichEdit1: TRichEdit; procedure

Button1Click(Sender: TObject); {...} end

; var

Form1: TForm1; implementation

{$R *.DFM} procedure

TForm1.Button1Click(Sender: TObject); begin

if

PrintDialog1.Execute then

Richedit1.Print('Ltp1'); {Ltp1, Lpt2 are printers} end

; end

.

Другое по теме:

Категории

Статьи

Советы

Copyright © 2023 - All Rights Reserved - www.delphirus.com