<?xml version="1.0" encoding="UTF-8"?>
<rss version="2.0"
	xmlns:content="http://purl.org/rss/1.0/modules/content/"
	xmlns:wfw="http://wellformedweb.org/CommentAPI/"
	xmlns:dc="http://purl.org/dc/elements/1.1/"
	xmlns:atom="http://www.w3.org/2005/Atom"
	xmlns:sy="http://purl.org/rss/1.0/modules/syndication/"
	xmlns:slash="http://purl.org/rss/1.0/modules/slash/"
	>

<channel>
	<title>X-pack.org &#187; Printing</title>
	<atom:link href="http://home.x-pack.org/category/free-source-code/delphi/printing/feed/" rel="self" type="application/rss+xml" />
	<link>http://home.x-pack.org</link>
	<description>Download all you need here</description>
	<lastBuildDate>Fri, 18 May 2012 11:09:35 +0000</lastBuildDate>
	<language>en</language>
	<sy:updatePeriod>hourly</sy:updatePeriod>
	<sy:updateFrequency>1</sy:updateFrequency>
	<generator>http://wordpress.org/?v=3.2.1</generator>
		<item>
		<title>[ Delphi ] – Print a canvas</title>
		<link>http://home.x-pack.org/delphi-print-a-canvas/</link>
		<comments>http://home.x-pack.org/delphi-print-a-canvas/#comments</comments>
		<pubDate>Tue, 04 May 2010 09:32:15 +0000</pubDate>
		<dc:creator>delphi geek</dc:creator>
				<category><![CDATA[Printing]]></category>

		<guid isPermaLink="false">http://localhost/a/?p=65</guid>
		<description><![CDATA[uses &#160;&#160;Printers; procedure PrintText(Text: string); begin &#160;&#160;with Printer do &#160;&#160;begin &#160;&#160;&#160;&#160;BeginDoc; &#160;&#160;&#160;&#160;Canvas.TextOut(5, 50, Text); &#160;&#160;&#160;&#160;EndDoc; &#160;&#160;end; end;]]></description>
		<wfw:commentRss>http://home.x-pack.org/delphi-print-a-canvas/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>[ Delphi ] – List print-jobs in a printer-queue</title>
		<link>http://home.x-pack.org/delphi-list-print-jobs-in-a-printer-queue/</link>
		<comments>http://home.x-pack.org/delphi-list-print-jobs-in-a-printer-queue/#comments</comments>
		<pubDate>Tue, 04 May 2010 09:26:10 +0000</pubDate>
		<dc:creator>delphi geek</dc:creator>
				<category><![CDATA[Printing]]></category>

		<guid isPermaLink="false">http://localhost/a/?p=53</guid>
		<description><![CDATA[uses &#160;&#160;Winspool, Printers; function GetCurrentPrinterHandle: THandle; var &#160;&#160;Device, Driver, Port: array[0..255] of Char; &#160;&#160;hDeviceMode: THandle; begin &#160;&#160;Printer.GetPrinter(Device, Driver, Port, hDeviceMode); &#160;&#160;if not OpenPrinter(@Device, Result, nil) then &#160;&#160;&#160;&#160;RaiseLastWin32Error; end; function SavePChar(p: PChar): PChar; const &#160;&#160;error: PChar = 'Nil'; begin &#160;&#160;if not Assigned(p) then &#160;&#160;&#160;&#160;Result := error &#160;&#160;else &#160;&#160;&#160;&#160;Result := p; end; procedure TForm1.Button1Click(Sender: TObject); type &#160;&#160;TJobs&#160;&#160;=]]></description>
		<wfw:commentRss>http://home.x-pack.org/delphi-list-print-jobs-in-a-printer-queue/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>[ Delphi ] – Print text</title>
		<link>http://home.x-pack.org/delphi-print-text/</link>
		<comments>http://home.x-pack.org/delphi-print-text/#comments</comments>
		<pubDate>Sun, 04 Apr 2010 09:30:14 +0000</pubDate>
		<dc:creator>delphi geek</dc:creator>
				<category><![CDATA[Printing]]></category>

		<guid isPermaLink="false">http://localhost/a/?p=61</guid>
		<description><![CDATA[var &#160;&#160;F: TextFile; begin &#160;&#160;AssignFile(F, 'LPT1');// LPT2,COM1,COM2... &#160;&#160;Rewrite(F); &#160;&#160;Writeln(F, 'Hello'); &#160;&#160;Writeln(F, 'There!'); &#160;&#160;Writeln(F, #12); &#160;&#160;CloseFile(F); end;]]></description>
		<wfw:commentRss>http://home.x-pack.org/delphi-print-text/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>[ Delphi ] – Get the available printers</title>
		<link>http://home.x-pack.org/delphi-get-the-available-printers/</link>
		<comments>http://home.x-pack.org/delphi-get-the-available-printers/#comments</comments>
		<pubDate>Sun, 04 Apr 2010 09:29:03 +0000</pubDate>
		<dc:creator>delphi geek</dc:creator>
				<category><![CDATA[Printing]]></category>

		<guid isPermaLink="false">http://localhost/a/?p=59</guid>
		<description><![CDATA[uses &#160;&#160;printers; ComboBox1.Items.Assign(Printer.Printers);]]></description>
		<wfw:commentRss>http://home.x-pack.org/delphi-get-the-available-printers/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>[ Delphi ] – Print a TStringGrid</title>
		<link>http://home.x-pack.org/delphi-print-a-tstringgrid/</link>
		<comments>http://home.x-pack.org/delphi-print-a-tstringgrid/#comments</comments>
		<pubDate>Sun, 04 Apr 2010 09:25:22 +0000</pubDate>
		<dc:creator>delphi geek</dc:creator>
				<category><![CDATA[Printing]]></category>

		<guid isPermaLink="false">http://localhost/a/?p=51</guid>
		<description><![CDATA[uses &#160;&#160;Printers; procedure PrintGrid(sGrid: TStringGrid; sTitle: string); var &#160;&#160;X1, X2: Integer; &#160;&#160;Y1, Y2: Integer; &#160;&#160;TmpI: Integer; &#160;&#160;F: Integer; &#160;&#160;TR: TRect; begin &#160;&#160;Printer.Title := sTitle; &#160;&#160;Printer.BeginDoc; &#160;&#160;Printer.Canvas.Pen.Color&#160;&#160;:= 0; &#160;&#160;Printer.Canvas.Font.Name&#160;&#160;:= 'Times New Roman'; &#160;&#160;Printer.Canvas.Font.Size&#160;&#160;:= 12; &#160;&#160;Printer.Canvas.Font.Style := [fsBold, fsUnderline]; &#160;&#160;Printer.Canvas.TextOut(0, 100, Printer.Title); &#160;&#160;for F := 1 to sGrid.ColCount - 1 do &#160;&#160;begin &#160;&#160;&#160;&#160;X1 := 0; &#160;&#160;&#160;&#160;for TmpI]]></description>
		<wfw:commentRss>http://home.x-pack.org/delphi-print-a-tstringgrid/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>[ Delphi ] –  Detect Printer status</title>
		<link>http://home.x-pack.org/delphi-detect-printer-status/</link>
		<comments>http://home.x-pack.org/delphi-detect-printer-status/#comments</comments>
		<pubDate>Thu, 04 Mar 2010 09:31:21 +0000</pubDate>
		<dc:creator>delphi geek</dc:creator>
				<category><![CDATA[Printing]]></category>
		<category><![CDATA[Mediafire]]></category>

		<guid isPermaLink="false">http://localhost/a/?p=63</guid>
		<description><![CDATA[function TestPrinterStatus(LPTPort: Word): Byte; var &#160;&#160;Status: byte; &#160;&#160;CheckLPT: word; begin &#160;&#160;Status := 0; &#160;&#160;if (LPTPort &#62;= 1) and (LPTPort &#60;= 3) then &#160;&#160;begin &#160;&#160;&#160;&#160;CheckLPT := LPTPort - 1; &#160;&#160;&#160;&#160;asm &#160;&#160;&#160;&#160;&#160;&#160;mov dx, CheckLPT; &#160;&#160;&#160;&#160;&#160;&#160;mov al, 0; &#160;&#160;&#160;&#160;&#160;&#160;mov ah, 2; &#160;&#160;&#160;&#160;&#160;&#160;int 17h; &#160;&#160;&#160;&#160;&#160;&#160;mov &#38;Status, ah; &#160;&#160;&#160;&#160;end; &#160;&#160;end; &#160;&#160;Result := Status; end; { &#160;&#160;Pass in the LPT port]]></description>
		<wfw:commentRss>http://home.x-pack.org/delphi-detect-printer-status/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>[ Delphi ] – Get the default printers resolution</title>
		<link>http://home.x-pack.org/delphi-get-the-default-printers-resolution/</link>
		<comments>http://home.x-pack.org/delphi-get-the-default-printers-resolution/#comments</comments>
		<pubDate>Thu, 04 Mar 2010 09:28:15 +0000</pubDate>
		<dc:creator>delphi geek</dc:creator>
				<category><![CDATA[Printing]]></category>

		<guid isPermaLink="false">http://localhost/a/?p=57</guid>
		<description><![CDATA[uses &#160;&#160;Printers; function GetPixelsPerInchX: Integer; begin &#160;&#160;Result := GetDeviceCaps(Printer.Handle, LOGPIXELSX) end; function GetPixelsPerInchY: Integer; begin &#160;&#160;Result := GetDeviceCaps(Printer.Handle, LOGPIXELSY) end; procedure TForm1.Button1Click(Sender: TObject); begin &#160;&#160;Caption := Format('x: %d y: %d DPI (dots per inch)', &#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160; [GetPixelsPerInchX, GetPixelsPerInchY]); end;]]></description>
		<wfw:commentRss>http://home.x-pack.org/delphi-get-the-default-printers-resolution/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>[ Delphi ] – Print a TImage</title>
		<link>http://home.x-pack.org/delphi-print-a-timage/</link>
		<comments>http://home.x-pack.org/delphi-print-a-timage/#comments</comments>
		<pubDate>Thu, 04 Mar 2010 09:27:31 +0000</pubDate>
		<dc:creator>delphi geek</dc:creator>
				<category><![CDATA[Printing]]></category>

		<guid isPermaLink="false">http://localhost/a/?p=55</guid>
		<description><![CDATA[uses &#160;&#160;Printers; procedure TForm1.Button1Click(Sender: TObject); var &#160;&#160;ScaleX, ScaleY: Integer; &#160;&#160;RR: TRect; begin &#160;&#160;with Printer do &#160;&#160;begin &#160;&#160;&#160;&#160;BeginDoc; &#160;&#160;&#160;&#160;try &#160;&#160;&#160;&#160;&#160;&#160;ScaleX := GetDeviceCaps(Handle, logPixelsX) div PixelsPerInch; &#160;&#160;&#160;&#160;&#160;&#160;ScaleY := GetDeviceCaps(Handle, logPixelsY) div PixelsPerInch; &#160;&#160;&#160;&#160;&#160;&#160;RR := Rect(0, 0, Image1.picture.Width * scaleX, Image1.Picture.Height * ScaleY); &#160;&#160;&#160;&#160;&#160;&#160;Canvas.StretchDraw(RR, Image1.Picture.Graphic); &#160;&#160;&#160;&#160;finally &#160;&#160;&#160;&#160;&#160;&#160;EndDoc;&#160;&#160; &#160;&#160;&#160;&#160;end; &#160;&#160;end; end;]]></description>
		<wfw:commentRss>http://home.x-pack.org/delphi-print-a-timage/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>[ Delphi ] – Check, if the current printer prints in color</title>
		<link>http://home.x-pack.org/delphi-check-if-the-current-printer-prints-in-color/</link>
		<comments>http://home.x-pack.org/delphi-check-if-the-current-printer-prints-in-color/#comments</comments>
		<pubDate>Thu, 04 Mar 2010 09:24:38 +0000</pubDate>
		<dc:creator>delphi geek</dc:creator>
				<category><![CDATA[Printing]]></category>

		<guid isPermaLink="false">http://localhost/a/?p=49</guid>
		<description><![CDATA[uses &#160;&#160;Printers, WinSpool; procedure TForm1.Button1Click(Sender: TObject); var &#160;&#160;Dev, Drv, Prt: array[0..255] of Char; &#160;&#160;DM1: PDeviceMode; &#160;&#160;DM2: PDeviceMode; &#160;&#160;Sz: Integer; &#160;&#160;DevM: THandle; begin &#160;&#160;Printer.PrinterIndex := -1; &#160;&#160;Printer.GetPrinter(Dev, Drv, Prt, DevM); &#160;&#160;DM1 := nil; &#160;&#160;DM2 := nil; &#160;&#160;Sz&#160;&#160;:= DocumentProperties(0, 0, Dev, DM1^, DM2^, 0); &#160;&#160;GetMem(DM1, Sz); &#160;&#160;DocumentProperties(0, 0, Dev, DM1^, DM2^, DM_OUT_BUFFER); &#160;&#160;if DM1^.dmColor &#62; 1 then]]></description>
		<wfw:commentRss>http://home.x-pack.org/delphi-check-if-the-current-printer-prints-in-color/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>[ Delphi ] – Get the name of the default printer</title>
		<link>http://home.x-pack.org/delphi-get-the-name-of-the-default-printer/</link>
		<comments>http://home.x-pack.org/delphi-get-the-name-of-the-default-printer/#comments</comments>
		<pubDate>Thu, 04 Mar 2010 09:23:42 +0000</pubDate>
		<dc:creator>delphi geek</dc:creator>
				<category><![CDATA[Printing]]></category>

		<guid isPermaLink="false">http://localhost/a/?p=47</guid>
		<description><![CDATA[unit printers; begin &#160;&#160;Printer.PrinterIndex := -1; &#160;&#160;DefaultPrnName := Printer.Printers.Strings[Printer.PrinterIndex]; end;]]></description>
		<wfw:commentRss>http://home.x-pack.org/delphi-get-the-name-of-the-default-printer/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
	</channel>
</rss>

<!-- Performance optimized by W3 Total Cache. Learn more: http://www.w3-edge.com/wordpress-plugins/

Page Caching using disk: enhanced
Database Caching 25/55 queries in 0.023 seconds using disk: basic
Object Caching 619/682 objects using disk: basic

Served from: home.x-pack.org @ 2012-05-19 05:10:43 -->
