打印共15篇

Delphi 蓝牙连接打印机演示

unit Main;interfaceuses  Bluetooth.Printer,  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,  System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Form...
Top_Admin的头像-Delphi编程技巧大全Top_Admin22天前
0299

Delphi实现票据精确打印

一、概述在银行,税务,邮政等行业的实际工作中,经常涉及到在印刷好具有固定格式的汇款单,储蓄凭证,税票等单据上的确定位置打印输出相关的信息。在此类需求中,精确地定位单据并打印相关信息...
Top_Admin的头像-Delphi编程技巧大全Top_Admin22天前
03012

delphi word转pdf两种方法

uses ComObj;procedure TForm1.Button1Click(Sender: TObject);var   wdo,wdoc,wdocs : OleVariant;begin  wdo := CreateOleObject('Word.Application');  wdocs := wdo.Do...
Top_Admin的头像-Delphi编程技巧大全Top_Admin22天前
0435

Print Documents From Delphi – Print PDF, DOC, XLS, HTML, RTF, DOCX, TXT

unit Unit2;interfaceuses  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdC...
Top_Admin的头像-Delphi编程技巧大全Top_Admin22天前
03513

Delphi下POS机控制钱箱,客显,打印机

1、控制POS机的客户显示屏procedure  TFrmMain.ShowMoney(Money_Port:   String;Money_String:String);//Moneey_Port     顾显接口Com1&nbs...
Top_Admin的头像-Delphi编程技巧大全Top_Admin22天前
04915

delphi 获取打印机纸型的例子

function GetDeviceName():String;var MyReg: TRegistry;szDeviceName: String;begintryMyReg := TRegistry.Create;MyReg.RootKey := HKEY_CURRENT_CONFIG;if MyReg.OpenKey('SystemCurrentCont...
Top_Admin的头像-Delphi编程技巧大全Top_Admin22天前
04314

Delphi打印各类文档

ShellExecute(Handle, 'print', PChar('c:/document.doc'), nil, nil, SW_HIDE) ; Drop a TComboBox on a form. Name it 'cboPrinter'. Set Style to csDropDownLidtPut the next two lines in ...
Top_Admin的头像-Delphi编程技巧大全Top_Admin22天前
02515

delphi 一个绘制虚线的非常规函数(常规方法,打印机上绘制不出虚线)

 昨天碰到一个灰常的,郁闷之极的问题!在打印机上,竟然使用Delphi的常规方式绘制虚线的时候,竟然显示的始终是实线。我们常规绘制虚线的方法很简单的,就是指定Canvas的PenStyle为虚线模...
Top_Admin的头像-Delphi编程技巧大全Top_Admin22天前
05112

Delphi 抓图后打印这张图片,弹出打印属性框

如果用窗体.print打印的话,会导致一些控件打印不出来,比如下拉列表,还有打印TChart也会导致只打印TChart的原始状态,而不会打印有数据的TChart 所以我就想到了先抓图,后打印 抓图后下拉列表和TCh...
Top_Admin的头像-Delphi编程技巧大全Top_Admin22天前
05314

Delphi 动态调整打印机纸张大小

信息管理系统中经常要提供各种打印功能,例如报表打印、凭证打印以及发票打印。在这些打印过程中所需要纸张的大小往往是不一致的,例如,打印报表有可能使用A4 纸或A3 纸,打印凭证或发票可能需...
Top_Admin的头像-Delphi编程技巧大全Top_Admin22天前
0455

delphi 调用打印软件代码

unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls, OleServer, BarTender_TLB;typeTForm1 = class(TForm)btApp1: TBTAp...
Top_Admin的头像-Delphi编程技巧大全Top_Admin22天前
04114

delphi 设置系统默认打印机

unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls,Inifiles,Printers;typeTForm1 = class(TForm)ComboBox1: TComboBox;...
Top_Admin的头像-Delphi编程技巧大全Top_Admin22天前
04712

Delphi中获取打印机设备名和端口名

Delphi中获取打印机设备名和端口名uses Printers;{$IFNDEF WIN32}const MAX_PATH = 144;{$ENDIF}procedure TForm1.Button1Click(Sender: TObject);varpDevice : pChar;pDriver : pChar;pPort : ...
Top_Admin的头像-Delphi编程技巧大全Top_Admin22天前
04515

delphi 缩放图形打印输出

procedure TForm1.Button2Click(Sender: TObject);varRect:Trect;BMP:Tbitmap;beginPrinter.BeginDoc;Rect.Left:=10;Rect.Top:=10;Rect.Right:=410;Rect.Bottom:=410;Printer.Canvas.StretchDr...
Top_Admin的头像-Delphi编程技巧大全Top_Admin22天前
04511

delphi 设置打印机 纸张大小! 也可以获取纸张大小

Var aDevice: array[0..CCHDEVICENAME-1] of Char; aDriver: array[0..MAX_PATH-1] of Char; aPort: array[0..31] of Char; hDevMode: THandle; pDevMode: PDeviceMode; begin // 获取打印机Dev...
Top_Admin的头像-Delphi编程技巧大全Top_Admin22天前
02914