archive-com.com » COM » E » EFG2.COM

Total: 878

Choose link from "Titles, links and description words view":

Or switch to "Titles and links view".

  • Version 1 0 Reply To joehecht gte net Newsgroups borland public delphi graphics Steve Schafer TeamB wrote On Wed 15 Dec 1999 22 58 55 0200 Flavio Tobias wrote How can I use FloodFill on Printer Canvas I need to paint an area but doesn t work on Printer Not all GDI devices support FloodFill Printers are especially unlikely to support it Very correct and the reason is there is

    Original URL path: http://www.efg2.com/Lab/Library/UseNet/1999/1215d.txt (2016-02-14)
    Open archived version from archive



  • text only printer driver If you have installed a printer icon for the Epson simply use the name of the printer as it appear inside the printer applet You can use this procedure to send any kind of data to the printer directly bypassing the driver To send a 129 you would simply use PrintLineToGeneric 129 Print a line to the generic text printer without formfeed Uses WinSpool Const GenericPrinter

    Original URL path: http://www.efg2.com/Lab/Library/UseNet/2001/0801.txt (2016-02-14)
    Open archived version from archive


  • Brown Newsgroups comp lang pascal delphi misc Michel Peyron wrote in message news 7u1fkc pef 1 minus oleane net How can I make a printer selected in a TPrinterSetupDialog the default printer for my application The following code sets the currently selected printer as the persistent default Note the calls to the two different GetPrinter functions one in the Printers unit and the other in Winspool uses Printers Winspool procedure ChangePrinter var ADevice ADriver APort array 0 100 of Char HDeviceMode HPrinter THandle PrinterInfo2 PPrinterInfo2 Size DWORD begin ZeroMemory ADevice SizeOf ADevice Get the device name of the current printer Printer GetPrinter ADevice ADriver APort HDeviceMode Initialise some memory for the TPrinterInfo2 structure Size 0 GetMem PrinterInfo2 Size try Get a handle to the current printer if not OpenPrinter ADevice HPrinter nil then begin ShowMessage Error getting handle to current printer 13 SysErrorMessage GetLastError Exit end Get size of printer info structure Winspool GetPrinter HPrinter 2 PrinterInfo2 Size Size Allocate memory for printer info structure ReAllocMem PrinterInfo2 Size Get printer info for current printer if not Winspool GetPrinter HPrinter 2 PrinterInfo2 Size Size then begin ShowMessage Error getting current printer info 13 SysErrorMessage GetLastError Exit end Modify the printer info

    Original URL path: http://www.efg2.com/Lab/Library/UseNet/1999/1013c.txt (2016-02-14)
    Open archived version from archive


  • Normal X Newsreader Microsoft Outlook Express 5 50 4807 1700 X MimeOLE Produced By Microsoft MimeOLE V5 50 4807 1700 NNTP Posting Host 80 62 217 236 Message ID X Trace dnews 1003986501 80 62 217 236 24 Oct 2001 22 08 21 0700 Path dnews Xref dnews borland public delphi ide 54625 function AnyPrintersInstalled Boolean begin if Printer 0 then Result True else Result False end Finn Tolderlund Bob

    Original URL path: http://www.efg2.com/Lab/Library/UseNet/2001/1024.txt (2016-02-14)
    Open archived version from archive


  • Produced By Microsoft MimeOLE V5 00 2314 1300 Organization Another Netscape Collabra Server User X MSMail Priority Normal Newsgroups borland public delphi graphics Don t know if it will help in this situation but I ve solved a few NT

    Original URL path: http://www.efg2.com/Lab/Library/UseNet/1999/0604b.txt (2016-02-14)
    Open archived version from archive


  • is shut down it displays a warning saying that there s a print job not finished and that it will be lost if the computer is turned off I know Windows has a setting to spool print jobs or to send them directly to the network but we don t want to change all our laptops It looks like something like WM SPOOLERSTATUS could do the job Perhaps Add a message handler for it to your main form private section procedure WMSpoolerstatus var msg TWMSpoolerstatus message WM SPOOLERSTATUS Hit Shift Ctrl C to make the IDE add a implementation for the method Add an inherited statement msg JobStatus will be 0 if the spooler thinks it is healthy and 0 Then printer offline uses Winspool Printers function GetCurrentPrinterHandle THandle var Device Driver Port array 0 255 of char hDeviceMode THandle begin Printer GetPrinter Device Driver Port hDeviceMode if not OpenPrinter Device Result nil then RaiseLastWin32Error end Function SavePChar p PChar PChar const error PChar Nil begin if not assigned p then result error else result p end procedure TForm1 Button2Click Sender TObject type TJobs Array 0 1000 of JOB INFO 1 PJobs TJobs var hPrinter THandle bytesNeeded numJobs i Cardinal

    Original URL path: http://www.efg2.com/Lab/Library/UseNet/2000/0113d.txt (2016-02-14)
    Open archived version from archive


  • winapi 128427 In article Paul Boey wrote How to detect whether the printer is on or not There is no standard method for this open to a Win32 program Such a program is supposed to leave the print spooler to worry about printer errors So what you can do is send off a print request through the spooler Any printing through API functions will do that and then check on

    Original URL path: http://www.efg2.com/Lab/Library/UseNet/2001/0331c.txt (2016-02-14)
    Open archived version from archive


  • EnumJobs to check the fate of the job When it runs into an error the spooler error status is returned for the job There seems to be no way to get a reliably indication of the printers status before sending off a job Uses WinSpool that is where EnumJobs is declared for you Example for EnumJobs Uses Winspool printers GetCurrentPrinterHandle Retrieves the handle of the current printer Returns an API printer handle for the current printer Desc Uses WinSpool OpenPrinter to get a printer handle The caller takes ownership of the handle and must call CloseHandle on it once the handle is no longer needed Failing to do that creates a serious resource leak Requires Printers and WinSpool in the Uses clause Raises EWin32Error if the OpenPrinter call fails Created 30 9 2000 by P Below Function GetCurrentPrinterHandle THandle Const Defaults TPrinterDefaults pDatatype nil pDevMode nil DesiredAccess PRINTER ACCESS USE or PRINTER ACCESS ADMINISTER Var Device Driver Port array 0 255 of char hDeviceMode THandle Begin GetCurrentPrinterHandle Printer GetPrinter Device Driver Port hDeviceMode If not OpenPrinter Device Result Defaults Then RaiseLastWin32Error End GetCurrentPrinterHandle Function SafePChar p PChar PChar const error PChar Nil begin if not assigned p then result error

    Original URL path: http://www.efg2.com/Lab/Library/UseNet/2001/0501b.txt (2016-02-14)
    Open archived version from archive



  •