|
|
|
|
|
 |
delphi 如何保存打印机信息到注册表 |
| |
日期：2007-07-06 11:40:39
点击：17 评论：0  |
|
I'm trying to get Windows to remember settings - in particular paper type, size and orientation - configured using the Printer Setup dialogue. It's confusing me. It seems that sometimes Windows remembers these settings and sometimes not. The tech |
|
|
delphi 如何发改变HP打印机消息 |
| |
日期：2007-07-06 11:39:32
点击：7 评论：0 |
|
How to change the ReadyMessage of HP-LaserJet printers with a LCD display? |
|
|
delphi 获取打印驱动，打印端口名 |
| |
日期：2007-06-23 03:02:35
点击：13 评论：0 |
|
if PrintDialog1.Execute then begin
GetMem(pDevice, cchDeviceName);
GetMem(pDriver, MAX_PATH);
GetMem(pPort, MAX_PATH);
Printer.GetPrinter(pDevice, pDriver, pPort, hDMode);
if lStrLen(pDriver) = 0 then begin
GetProfil |
|
|
delphi 改变缺省打印机 |
| |
日期：2007-06-23 03:01:03
点击：9 评论：0 |
|
begin
GetWindowsDirectory(WinIniFileName, sizeof(WinIniFileName));
StrCat(WinIniFileName, '\win.ini');
WinIni := TIniFile.Create(WinIniFileName);
try
WinIni.WriteString('windows',
'device',
|
|
|
delphi 判断打印机能否打印的PostScript |
| |
日期：2007-06-23 02:59:09
点击：22 评论：0 |
|
TestInt := GETTECHNOLOGY;
{$IFDEF WIN32}
if ExtEscape(Dc,
QUERYESCSUPPORT,
sizeof(TestInt),
@TestInt,
0,
Nil) > 0 then begin
Err := ExtEscape(Dc,
|
|
|
delphi 打印时改变纸张大小 |
| |
日期：2007-06-23 02:57:19
点击：28 评论：0 |
|
procedure SetPaperSize(X, Y: Integer);
// 单位是0.1mm
// A4时 Printer.Pagewidth:=1440； A5时 Printer.Pagewidth:=1049；
// B5时 Printer.Pagewidth:=1290； 16K时 Printer.Pagewidth:=1035；
// lq1600宽行打印机这个值宽度最大为42cm左右, 长度大约2m。
|
|
|
delphi 获取打印机状态 |
| |
日期：2007-06-23 02:56:18
点击：39 评论：0 |
|
var
ErrorCode, C : BYTE;
code, x : integer;
s : string;
function GetPrinterStatus (LPT: Word): Byte;
{Pass 1 in LPT for LPT1}
begin
asm
mov ah,2
mov dx,LPT
|
|
|
delphi 安装打印驱动 |
| |
日期：2007-06-23 02:55:20
点击：6 评论：0 |
|
WriteProfileString('PrinterPorts',
'DriverName',
'DRVFILE,FILE:,15,45');
WriteProfileString('Devices',
'DriverName',
'DRVFILE,FILE:');
StrCopy |
|
|
delphi 使用打印机内置字体打印 |
| |
日期：2007-06-23 02:54:01
点击：13 评论：0 |
|
Printer.Canvas.Font.Handle := GetStockObject(DEVICE_DEFAULT_FONT);
GetTextMetrics(Printer.Canvas.Handle, tm);
for i := 1 to 10 do begin
Printer.Canvas.TextOut(100,
i * tm.tmHeight +
|
|
|
delphi 改变打印机的打印端口 |
| |
日期：2007-06-23 02:53:01
点击：13 评论：0 |
|
if PrintDialog1.Execute then begin
GetMem(pDevice, cchDeviceName);
GetMem(pDriver, MAX_PATH);
GetMem(pPort, MAX_PATH);
Printer.GetPrinter(pDevice, pDriver, pPort, hDMode);
Printer.SetPrinter(pDevice, PDriver, 'FILE:', hDM |
|
|
|
|
|
|
|
