Печать на разных форматах бумаги

Программа МОЖЕТ печатать на LaserJet 5000 (лотки А4 и А3, А4 - основной) или на принтеры А4
Если в диалоге выбора принтера для LJ 5000 изменить параметры на А3, то документ тупо масштабирутся.

Как перейти к формату А3 ?

PrintDlg = new TPrintDialog(F1);
if (!PrintDlg->Execute()) return;
Prntr->Orientation = poLandscape;
Prntr->BeginDoc();

Prntr->Canvas->Font->Name = "Courier New";
Prntr->Canvas->Font->Size = 8;
Prntr->Canvas->Font->Charset = RUSSIAN_CHARSET;
CX = Prntr->Canvas->TextWidth("Щ"); CY = Prntr->Canvas->TextHeight("Щ");

s = "за " + IncMonth(Now().CurrentDate(), -1).FormatString("mmmm yyyy ã.");
Prntr->Canvas->TextOut(CX * 10, y, s);
y += CY;
for (i = 0; i < SG->FixedRows; i++) {
Prntr->Canvas->Pen->Style = psSolid;
for (j = 0; j < SG->ColCount; j++) {
DrawFrame(Prntr->Canvas,
Rect(x,y,x+(ColW[j]+2)*CX, y+CY+2),
cTit[i*15+j]);
Prntr->Canvas->TextRect(Rect(x,y,x+(ColW[j]+2)*CX, y+CY+2),x+1+CX/2, y+1, SG->Cells[j]);
x += ColW[j] * CX + 1;
}
y += CY + 1;
x = 2 * CX;
if (y + CY > Prntr->PageHeight) {
y = 0;
EndPage(Prntr->Handle);
StartPage(Prntr->Handle);
y = CY;
}
}