🚀 go-pugleaf

Unfortunately, I must say that somehow something is different because they
do two different things.

This is how I get the handle (Hndl) that I am passing to the API calls.

  char cDevice[256];
  char cDriver[256];
  char cPort[256];
  THandle hDeviceMode;
  HANDLE HPrinter;

  Printer()->PrinterIndex = index;
  Printer()->GetPrinter(cDevice, cDriver, cPort, hDeviceMode );
  HDC Hndl= CreateDC(NULL, cDevice, NULL, NULL);

I am doing the following to print on consecutive "1 inch pages":
OpenPrinter(Hndl, &di);
 StartDoc(Hndl);
  StartPage(Hndl);
   ::TextOut(Hndl, ...);
  EndPage(Hndl);
 EndDoc(Hndl);
ClosePrinter(Hndl);

Whereas the following here skips "10 pages" between printing:
Printers()->PrinterIndex=x;
Printers()->BeginDoc();
Printers()->Canvas->TextOut();
Printers()->EndDoc();

Any thoughts?

-Anthony

"Remy Lebeau (TeamB)" <gambit47@yahoo.com> wrote in message
news:3f14eafa@newsgroups.borland.com...
>
> "Anthony" <awhitesell@attbi.com> wrote in message
> news:3f14d673$1@newsgroups.borland.com...
>
> > I am printing on address labels that are 1 inch tall.  When
> > I issue Printers()->NewPage() the printer feeds 10 inches
> > of paper skipping 10 labels. But if I issue StartPage(Hndl)
> > and EndPage(Hndl) then it increments properly.
>
> That is the same thing that TPrinter:NewPage() does internally:
>
>     procedure TPrinter.NewPage;
>     begin
>         CheckPrinting(True);
>         EndPage(DC);
>         StartPage(DC);
>         Inc(FPageNumber);
>         Canvas.Refresh;
>     end;
>
> > I have learned that you cannot mix API and VCL calls when
> > printing.  I used Printers()->BeginDoc() and the StartPage(Hndl)
> > and the IDE complained that the printer was not currently running.
>
> Which handle are you actually passing to StartPage() in the first place?
> Everytime you talk about issues with coding, please ALWAYS post the actual
> code in question.
>
> > How do you translate Printers()->Canvas->TextHeight("W")
> > into an API call?
>
> TextHeight() call TextExtent() which in turn uses the API function
> GetTextExtentPoint32().
>
>
> Gambit
>
>