🚀 go-pugleaf

this is my test program,  the printer has no reaction, what's wrong whith me
?


void __fastcall TForm1::PSTestClick(TObject *Sender)
{

   BOOL   RetCode = FALSE;
   HANDLE Printer = NULL;
   LPTSTR aName="Xerox Phaser 8200DX";
   LPCSTR Str="test me";
   if (OpenPrinter(aName, &Printer, NULL))
   {
      DWORD      Jobid    = 0;
      DOC_INFO_1 DocInfo  = {0};

      DocInfo.pDocName    = "The Document Name";
      DocInfo.pOutputFile = "ffff";
      if ((Jobid = StartDocPrinter(Printer, 1, (LPBYTE) &DocInfo)) != 0)
      {
         DWORD Written;
         DWORD NumBytes = lstrlen(Str);

         WritePrinter(Printer, (void*) Str, NumBytes, &Written);

         if (Written == NumBytes)
            RetCode = TRUE;
      }

      EndDocPrinter(Printer);
      ClosePrinter(Printer);
   }
}


"Vladimir Afanasyev" <avv@systema.kiev.ua> wrote in message
news:3f255bd6$1@newsgroups.borland.com...
>
> Hi,
> "Richard Yu" <richard@colorselector.com> wrote:
> >I like to print graphics directly use Postscript operator inside BCB, how
to
> >do it, and what libraries, dll are required ?
> >thanks.
>
> If your printer is Poscript printer you can use WritePrinter
> Win32 API function for direct sending Postscript operator to
> printer:
> http://support.microsoft.com/default.aspx?scid=kb;en-us;138594
>
> Vladimir.