Jak wymusić na drukarce rozdzelczosc 300x300 lub co robie zle ze mi to nie działa
musze sztywno ustawiac w drukarce rodzielczosc wtedy jest ok.

PDEVMODE pDevMode;
THandle hPrnDevMode;
char szName[255],
szDriver[255],
szPort[255];
Printer()->GetPrinter(szName,szDriver,szPort,hPrnDevMode);

 if(hPrnDevMode!=0)
 {
    pDevMode=(PDEVMODE)GlobalLock((HANDLE)hPrnDevMode) ;

    if(pDevMode == NULL)
        throw Exception("Nie można pobrać wskaźnika do DEVMODE") ;
    pDevMode->dmFields |=DM_PRINTQUALITY | DM_YRESOLUTION;
    pDevMode->dmPrintQuality = 300;
    pDevMode->dmYResolution =300;
    GlobalUnlock((HANDLE)hPrnDevMode);
  if(!PrintDialog1->Execute())
    {
        return;
    }
//Rozpocznij drukowanie
    Printer()->BeginDoc();
    Printer()->Title="MCGC Sp z o.o";
    int xp = Printer()->PageWidth;
    int yp = Printer()->PageHeight;
   Printer()->Canvas->TextOut(x/30,y/5.3+50 ,"PESEL");

catch(...)
{
Application->MessageBox("Błąd drukarki.",
"Komunikat", MB_OK | MB_ICONHAND);

}
if(Printer()->Printing)
{
    Printer()->EndDoc();
}

}