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".

  • garbled pages and or system crashes Our TExcellentImagePrinter product can help and is available at http www code4sale com joehecht function IsColorPrinter bool var Device array 0 MAX PATH of char Driver array 0 MAX PATH of char Port array 0 MAX PATH of char hDMode THandle PDMode PDEVMODE begin result FALSE Printer PrinterIndex Printer PrinterIndex Printer GetPrinter Device Driver Port hDMode if hDMode nil then begin if pDMode dmFields

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



  • 172761 In article Dr Oswald Wagner wrote in a simple application I want to print to a special label printer If set to standard printer everything works well But if another printer is set as standard and I only change the active printer within my app I get a Blue Screen under Win2k when I try printing The company which wrote the printer driver doesn t help charge free How

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


  • 1 0 Reply To 100113 1101 compuXXserve com Newsgroups borland public delphi objectpascal In article Ray Browning wrote I want to be able to dynamically change a users default printer Change default printer var Device array 0 255 of char Driver array 0 255 of char Port array 0 255 of char hDeviceMode THandle begin Printer PrinterIndex select printer to make default Printer GetPrinter Device Driver Port hDeviceMode StrCat Device

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


  • with D4 SP2 3 under Win98 Under NT4 it runs correctly AFAIK it goes as following in Printers unit GetPrinter GetPrinterIndex SetToDefaultPrinter SetToDefaultPrinter calls WinAPI EnumPrinters PRINTER ENUM DEFAULT which returns False That causes exception But what I have to do with this The questions are 1 How to organize platform Win32 independent check of default printer presence 2 Is it safe to use Printers Count and forget about GetPrinter

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


  • F WriteString StrPas Driver F WriteString StrPas Port F WriteInteger SizeOf pDMode F Write pDMode SizeOf pDMode F Free FS Free GlobalUnlock hDMode end end Try Printer PrinterIndex Printer PrinterIndex Except Printer PrinterIndex OldPi End end procedure TPrinterUtil FormCreate Sender TObject begin BringToFront RefreshSettingsClick NIL end procedure TPrinterUtil RefreshSettingsClick Sender TObject Var Sep String Procedure MakeInt S String key Integer Begin S UpperCase S DevCtrl Lines Add UpperCase Format 36S d s GetDeviceCaps Printer Handle Key End Function StringToBits S String String Var H String i Integer Function SubStr C Char String Begin if c 0 then SubStr 0000 if c 1 then SubStr 0001 if c 2 then SubStr 0010 if c 3 then SubStr 0011 if c 4 then SubStr 0100 if c 5 then SubStr 0101 if c 6 then SubStr 0110 if c 7 then SubStr 0111 if c 8 then SubStr 1000 if c 9 then SubStr 1001 if c A then SubStr 1010 if c B then SubStr 1011 if c C then SubStr 1100 if c D then SubStr 1101 if c E then SubStr 1110 if c F then SubStr 1111 End Begin StringToBits S UpperCase s H if Length S 0 then exit if Length S 1 then S 0000 S if Length S 2 then S 000 S if Length S 3 then S 00 S if Length S 4 then S 0 S For i 1 to Length s do H H SubStr S i StringToBits H End Procedure MakeHex S String key Cardinal Var h String Begin S UpperCase S h Format X GetDeviceCaps Printer Handle Key if Length H 0 then exit if Length H 1 then H 0000 H if Length H 2 then H 000 H if Length H 3 then H 00 H if Length H 4 then H 0 H DevCtrl Lines Add DevCtrl Lines Add SEP DevCtrl Lines Add DevCtrl Lines Add Format 37S Flags S Key S s h GetDeviceCaps Printer Handle Key StringToBits H End Procedure MakeFlag S String key subKey Cardinal Var i Cardinal Begin S UpperCase S i GetDeviceCaps Printer Handle Key if i AND SubKey 64 kByte RasterCaps RC BITMAP64 MakeFlag Support features of Win 2 0 RasterCaps RC GDI20 OUTPUT MakeFlag Support Set GetDIBITS RasterCaps RC DI BITMAP MakeFlag Support Palette Devices RasterCaps RC PALETTE MakeFlag Support SetDIBitsToDevice RasterCaps RC DIBTODEV MakeFlag Support Floodfill RasterCaps RC FLOODFILL MakeFlag Support StretchBlt RasterCaps RC STRETCHBLT MakeFlag Support StretchBID RasterCaps RC STRETCHDIB MakeFlag Support DIBS RasterCaps RC DEVBITS MakeHex Curve Printion Flages CurveCaps DevCtrl Lines Add sep DevCtrl Lines Add MakeFlag No Curve support CurveCaps CC NONE MakeFlag Support Circles CurveCaps CC Circles MakeFlag Support Pie CurveCaps CC PIE MakeFlag Support Arces CurveCaps CC CHORD MakeFlag Support Ellipses CurveCaps CC ELLIPSEs MakeFlag Support WIDE FRAMES CurveCaps CC WIDE MakeFlag Support STYLED FRAMES CurveCaps CC STYLED MakeFlag Support WIDE STYLED FRAMES CurveCaps CC WIDESTYLED MakeFlag Support INTERIORS CurveCaps CC INTERIORS MakeFlag Support ROUNDRECT CurveCaps CC ROUNDRECT MakeHex Line Polygon Printing

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


  • delphi nativeapi Subject Re Printer resolution Date Fri 6 Jun 2003 13 28 07 0200 Hi Nikola I think you can use GetDeviceCaps Printer Handle LOGPIXELSX GetDeviceCaps Printer Handle LOGPIXELSY or see Printer GetPrinter Device Driver Port hDmode WinSpool DeviceCapabilities

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


  • SetCustomPaperSize then Exit Print test Printer BeginDoc Printer Canvas TextOut 100 100 Hello this is Michael Printer EndDoc end The SetCustomerPaperSize returns true but the paper length seems still be A4 size it should be set to half an A4 size Would you please give me some suggestion Michael adding a form does not make your printer automatically use it You have to modify the printers DEVMODE too var Device

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


  • ID X Trace dnews 991879388 204 255 133 159 6 Jun 2001 19 03 08 0700 Path dnews Xref dnews borland public delphi objectpascal 191641 Ing Víctor M Ojeda Valiente wrote in message news 3b1e9c0a 2 dnews Anybody knows how to print in draft from within a Delphi app Thanks in advance Use the device mode commands You can find full examples elsewhere but this should give you some ideas

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



  •