/html/Database/print/index.html 数据库开发 / 打印 报表 zh-cn <a href='mailto:webmaster@delphichm.com'> Copyright@delphichm,</a>2006-2009.<br/>All Rights Reserved.<br/> <script language="javascript" type="text/javascript" src="http://js.users.51.la/1120570.js"></script> webmaster@delphichm.com /html/Database/print/20070706/320.html How to print a TRichEdit upside down 2007-07-06 打印 报表 Jonas Bilinkevicius 国外 /html/Database/print/20070706/319.html How to print a TMemo, TStringlist or TStrings? 2007-07-06 打印 报表 Peter Below 国外 /html/Database/print/20070706/318.html How to send a raw string to the printer 2007-07-06 打印 报表 Maarten de Haan 国外 /html/Database/print/20070706/317.html 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 2007-07-06 打印 报表 William Gerbert 国外 /html/Database/print/20070706/316.html How to change the ReadyMessage of HP-LaserJet printers with a LCD display? 2007-07-06 打印 报表 Maarten de Haan 国外 /html/Database/print/20070706/315.html A simple component to print labels 2007-07-06 打印 报表 Alejandro Castro 国外 /html/Database/print/20070706/314.html A very simple class to print labels 2007-07-06 打印 报表 Alejandro Castro 国外 /html/Database/print/20070623/98.html 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 2007-06-23 打印 报表 bill 站内 /html/Database/print/20070623/97.html begin GetWindowsDirectory(WinIniFileName, sizeof(WinIniFileName)); StrCat(WinIniFileName, '\win.ini'); WinIni := TIniFile.Create(WinIniFileName); try WinIni.WriteString('windows', 'device', 2007-06-23 打印 报表 bill 站内 /html/Database/print/20070623/96.html TestInt := GETTECHNOLOGY; {$IFDEF WIN32} if ExtEscape(Dc, QUERYESCSUPPORT, sizeof(TestInt), @TestInt, 0, Nil) > 0 then begin Err := ExtEscape(Dc, 2007-06-23 打印 报表 bill 站内 /html/Database/print/20070623/95.html 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。 2007-06-23 打印 报表 bill 站内 /html/Database/print/20070623/94.html 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 2007-06-23 打印 报表 bill 站内 /html/Database/print/20070623/93.html WriteProfileString('PrinterPorts', 'DriverName', 'DRVFILE,FILE:,15,45'); WriteProfileString('Devices', 'DriverName', 'DRVFILE,FILE:'); StrCopy 2007-06-23 打印 报表 bill 站内 /html/Database/print/20070623/92.html 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 + 2007-06-23 打印 报表 bill 站内 /html/Database/print/20070623/91.html 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 2007-06-23 打印 报表 bill 站内 /html/Database/print/20070623/90.html if not odd(PageNumber) then begin pDMode^.dmFields := pDMode^.dmFields or dm_PaperSize; pDMode^.dmPaperSize := DMPAPER_LETTER; end else begin pDMode^.dmFields := pDMode^.dmFields or dm_PaperSize; pDMod 2007-06-23 打印 报表 bill 站内 /html/Database/print/20070623/89.html if Escape(Printer.Handle, GETPHYSPAGESIZE, 0, nil, @Margin) > 0 then begin Margin.x := (Margin.x - GetDeviceCaps(Printer.Handle, H 2007-06-23 打印 报表 bill 站内 /html/Database/print/20070623/88.html if (GetDeviceCaps(Printer.Canvas.Handle, RASTERCAPS) and RC_NONE) = RC_NONE then NoGraphics := True; if (GetDeviceCaps(Printer.Canvas.Handle, RASTERCAPS) and RC_STRETCHDIB) = RC_STRETCHDIB then DeviceDirectly SupportsStretchDIB := True e 2007-06-23 打印 报表 bill 站内 /html/Database/print/20070623/87.html Lable1.Caption := IntToStr(msg.JobsLeft) + ' Jobs currenly in spooler'; msg.Result := 0; 2007-06-23 打印 报表 bill 站内 /html/Database/print/20070623/86.html Printers是专门用来控制打印机的，可是在没有安装打印机时，却会提示I/O错误，所以必须有一个检测是否存在打印机的方法，我试过很多方法，可是I/O错误总是比我的判断早出现，所以采用以下的烂招来检测打印机。首先在uses增加Printers，再准备一个列表框ComboBox1，其属 2007-06-23 打印 报表 bill 站内 /html/Database/print/20070623/85.html PrinterIndex := PrinterIndex; GetPrinter(Device, Driver, Port, hDMode); if hDMode <> 0 then begin pDMode := GlobalLock(hDMode); if pDMode <> nil then begin pDMode.dmFields := pDMode.dmFields or dm_Color; 2007-06-23 打印 报表 bill 站内 /html/Database/print/20070623/84.html ShellExecute(Handle, 'open', 'rundll', 'shell32.dll,SHHelpShortcuts_RunDLL AddPrinter', '', SW_SHOWNORMAL); 2007-06-23 打印 报表 bill 站内 /html/Database/print/20070623/83.html IsMonochrome := (GetDeviceCaps(Printer.Handle, BITSPIXEL) * GetDeviceCaps(Printer.Handle, PLANES)) = 1; 2007-06-23 打印 报表 bill 站内 /html/Database/print/20070623/82.html case Status of 0: Result := 'Waiting'; JOB_STATUS_PAUSED: Result := 'Paused'; JOB_STATUS_ERROR: Result := 'Error'; JOB_STATUS_DELETING: Result := 'Deleting'; 2007-06-23 打印 报表 bill 站内 /html/Database/print/20070623/81.html uses Printers, WinSpool; function PrinterStatusText(Status: Integer): String; begin case Status of 0: Result := 'Waiting'; JOB_STATUS_PAUSED: Result := 'Paused'; JOB_STATUS_ERROR: Result := 'Error'; JOB_STATUS_DELETING: Result := 'Deleting'; JOB_STA 2007-06-23 打印 报表 秩名 笨鱼技术网 /html/Database/print/20070623/80.html PrtName: String; DriverInfo: PDriverInfo2; dwNeeded: DWord; begin PrtName := comboPrinters.Text; OpenPrinter( PChar( PrtName ) , hPrinter , nil ); GetPrinterDriver( hPrinter, nil, 2, DriverInfo, 0, dwNeeded ); GetM 2007-06-23 打印 报表 bill 站内 /html/Database/print/20070623/79.html function GetPageWidth: Integer; begin Result := Screen.PixelsPerInch*GetDeviceCaps(Printer.Handle, PHYSICALWIDTH) div GetPixelsPerInchX end; 2007-06-23 打印 报表 bill 站内 /html/Database/print/20070623/78.html Use this on form create (or whatever)... ComboBox1.Items := Printer.Printers; {populates ComboBox} ComboBox1.ItemIndex := Printer.PrinterIndex; {sets display to current printer} then, assuming you have a Button5... 2007-06-23 打印 报表 bill 站内 /html/Database/print/20070623/77.html Constant Value Description ANSI_CHARSET 0 ANSI characters. DEFAULT_CHARSET 1 Font is chosen based solely on Name and Size. If the described font is not available on the system, Windows will substitute another font. SYMBOL_CHARSET 2 Standard 2007-06-23 打印 报表 bill 站内 /html/Database/print/20070623/76.html ShellExecute(Handle, 'open', 'rundll', 'shell32.dll,SHHelpShortcuts_RunDLL AddPrinter', '', SW_SHOWNORMAL); 2007-06-23 打印 报表 bill 站内 /html/Database/print/20070623/75.html 发送一条 WM_WININICHANGE 消息： var strIni: array[0..MAX_PATH] of Char; arrWindows: array[0..64] of Char; begin GetWindowsDirectory(strIni, SizeOf(strIni)); StrCat(strIni, '\win.ini'); with TIniFile.Create(strIni) do 2007-06-23 打印 报表 bill 站内 /html/Database/print/20070623/74.html begin hPrinter:= GetCurrentPrinterHandle; try EnumJobs( hPrinter, 0, 1000, 1, Nil, 0, bytesNeeded, numJobs ); pJ := AllocMem( bytesNeeded ); If not EnumJobs( hPrinter, 0, 1000, 1, pJ, bytesNeeded, 2007-06-23 打印 报表 bill 站内