Как написать текст вертикально в Билдере

Кто знает как в Билдере на объект Printer()->Canvas напечатать текст вертикально ориентированный.
Часть моего кода:
TPrinter *Prntr=Printer();
width=Prntr->PageWidth;
height=Prntr->PageHeight;
Prntr->Canvas->Font=lbFont->Font;

AnsiString test="test";
RECT rect = Rect(20,20,300,300);
Prntr->BeginDoc();
Prntr->Canvas->TextOut(10,10,"Тест печати");
DrawText(fmYard->Canvas->Handle, test.c_str(), -1, &rect, DT_SINGLELINE | DT_CENTER | DT_LEFT);
Prntr->EndDoc();