Hello,
I'm having problems by using TPrinter in Borland 6.0 with some configuration modes on the printer. When I resize the scale of the printer by the configuration assistant of the installed printer it only resize the text entries, not lines or positions... I don't know how to do it... here's a sample of my code:
void ImprimirLoggersPWR()
{
TPrinter *Prntr=Printer();
int i,x1,x2,y=MargeY,columna,fila,NumLog;
TRect TR;
bool ImprPag;
double Size;
NumLog=17;
Size=(Prntr->PageHeight-400-MargeY)/(46*NumLog+30);
if(Form1->Imprimir->Execute())
{
Prntr->BeginDoc();
//TÍTOL-----------
Prntr->Title=Txt[TXT_PRNTR_PWR_TITLE];
Prntr->Canvas->Pen->Color=clBlack;
Prntr->Canvas->Font->Size=(4*Size+36)/7;
Prntr->Canvas->Font->Style=TFontStyles()<< fsBold << fsUnderline;
Prntr->Canvas->TextOut(MargeX, y, Prntr->Title);
//PàGINA----------
ImprPag=true;
//----------------
y=y+(30*Size);
for(i=0;i<Herramientas->LogPWRAdquirits->Count;i++)
{
if(y+46*Size>=Prntr->PageHeight-400)
{
Prntr->NewPage();
y=MargeY + 30*Size;
ImprPag=true;
}
if(ImprPag)
{
Prntr->Canvas->Font->Size=2*(Size+23.2)/5.6;
Prntr->Canvas->Font->Style=TFontStyles()<< fsBold;
Prntr->Canvas->TextOut((Prntr->PageWidth)/2,Prntr->PageHeight-200,"- "+AnsiString(Prntr->PageNumber)+" -");
ImprPag=false;
}
if(Herramientas->LogPWRAdquirits->Checked[i])
{
y=y+10*Size;
//LOGGER
Prntr->Canvas->Font->Size=10*Size/10;
Prntr->Canvas->Font->Style=TFontStyles()<< fsBold << fsItalic;
Prntr->Canvas->TextOut(MargeX, y, Taules2[i]->PWRFrame->Caption);
y=y+10*Size;
for (fila=0;fila<Taules2[i]->PWR->RowCount;fila++)
{
x2=MargeX;
for(columna=0;columna<Taules2[i]->PWR->ColCount;columna++)
{
Prntr->Canvas->Font->Style=TFontStyles() >> fsBold >> fsUnderline >> fsItalic >> fsStrikeOut;
if (columna==0 || fila==0)
{
Prntr->Canvas->Brush->Color=ColorTaula;
Prntr->Canvas->Font->Style=TFontStyles() << fsBold;
}
else
{
Prntr->Canvas->Brush->Color=clWhite;
Prntr->Canvas->Font->Style=TFontStyles() >> fsBold;
}
Prntr->Canvas->Font->Size=9*Size/10;
x1=x2;
x2=x1+0.85*Size*(Taules2[i]->PWR->ColWidths[columna]);
TR=Rect(x1,y,x2,y+13*Size);
Prntr->Canvas->FillRect(TR);
Prntr->Canvas->Rectangle(x1,y,x2,y+13*Size);
Prntr->Canvas->TextOut(x1+3*Size,y+3*Size,Taules2[i]->PWR->Cells[columna][fila]);
}
y=y+13*Size;
}
}
}
Prntr->EndDoc();
}
}
If anyone understands what's happening please answer to me, thanks!
Regards,
ldiaz
