TPrinter with network printer

[Daniel Iwan]

Hello everyone!

I have a problem with using TCanvas Printer and network printer HP
LaserJet
It print just first page and throws blank all the rest.
WinNT with Borland Builder 5.

All works fine with my HP 3820 with USB printer (WinXP)
I pasted my code.

//------------------------------
void __fastcall ThPrintChart::E xecute()
{
if( MessageBox(0,"P rint ?", "Text", MB_YESNO | MB_ICONQUESTION ) ==
IDYES)
{ Printer()->Orientation = poLandscape;
Printer()->Title = "Title";
int iPrinterH = Printer()->PageHeight;
int iPrinterW = Printer()->PageWidth;
int iSizeW = iPrinterW - 1;
int iSizeH = iPrinterH - 1;
PrinterRect = Rect( 0, 0, iSizeW, iSizeH);
PrinterCanvas = Printer()->Canvas;
PageCanvas = PageImage->Canvas;
AnsiString sFileName;
Printer()->BeginDoc();
while(*bStop != true)
{ try
{
if(!bPrintToFil e)
DisplayIt();
if((!bPrintToFi le) && Printer()->Printing)
{

PrinterCanvas->CopyMode = cmSrcCopy;
PrinterCanvas->CopyRect( PrinterRect, PageCanvas,
pRect->PageRect);

}
else
{
sFileName = IntToStr(pChart Info->iActivePage) + ".bmp";
PageImage->Picture->SaveToFile(sFi leName);
}
if((pChartInfo->iActivePage) >= (pChartInfo->iPageCount))
*bStop = true;
else
{
if(!bPrintToFil e )
Printer()->NewPage();

ScrollIt();
}
}
catch(Exception & EPrinter)
{
}
}
if(!bPrintToFil e) Printer()->EndDoc(); //08.04.2004
}

PageImage->Visible = false;
}

//---------------------------------------------------------------------------
void __fastcall ThPrintChart::D isplayIt(void)
{
PageImage->Canvas->CopyMode = cmWhiteness;
PageImage->Canvas->CopyRect( pRect->PageRect, PageImage->Canvas,
pRect->PageRect);

PageImage->Visible = false;
ChartView->PrintPartialCa nvas( PageImage->Canvas, pRect->ChartRect);

PageImage->Canvas->TextOut(pTex t->iTextLeft, pText->iTextBottom,
pText->sText1);
PageImage->Canvas->TextOut(pTex t->iTextLeft, pText->iTextBottom +
pText->iSize, pText->sText2);
PageImage->Canvas->TextOut(pTex t->iTextLeft, pText->iTextBottom +
2*pText->iSize, pText->sText3);

pText->sText4 = IntToStr(pChart Info->iActivePage +
pChartInfo->iFirstPage - 1) + " (";
pText->sText4 += IntToStr(pChart Info->iMaxPage);
pText->sText4 += ")";
PageImage->Canvas->TextOut(pTex t->iTextLeft, pText->iTextBottom +
3*pText->iSize, pText->sText4);
PageImage->Visible = true;
}
//---------------------------------------------------------------------------
void __fastcall ThPrintChart::S crollIt(void)
{
pChartInfo->iActivePage = pChartInfo->iActivePage + 1; //13.04.2004
ChartView->BottomAxis->Scroll(pChartI nfo->iSamplesPerPag e, false);
}
//---------------------------------------------------------------------------

It sometimes works better when I add two Sleep(1000); lines before and
after CopyRect line...

Any suggestions? Thank you for your answers

Sorry for my English :-)
Daniel

[Stephen Waits]

Daniel Iwan wrote:

WinNT with Borland Builder 5.

Daniel,

You've posted to the wrong group.. You're more likely to get an answer
in the Borland or Win32 newsgroups.

Good luck,
Steve

[Christopher Benson-Manica]

Daniel Iwan <wi****@op.pl > spoke thus:

I have a problem with using TCanvas Printer and network printer HP
LaserJet
It print just first page and throws blank all the rest.
WinNT with Borland Builder 5.

Your post is off-topic for comp.lang.c++. Please visit

http://www.slack.net/~shiva/welcome.txt
http://www.parashift.com/c++-faq-lite/

for posting guidelines and frequently asked questions. Thank you.

--
Christopher Benson-Manica | I *should* know what I'm talking about - if I
ataru(at)cybers pace.org | don't, I need to know. Flames welcome.