Ich habe es raus gefunden, ich muss den
DC des Druckers löschen:
TWinPrinter(Printer).Handle := 0;
Danach übernimmt der meine Einstellung:
PDev := TPrinterDevice(Printer.Printers.Objects[Printer.PrinterIndex]);
PDev.DevMode^.dmPaperLength := i2;
PDev.DevMode^.dmPaperSize := 256; // = DMPAPER_USER;
PDev.DevMode^.dmFields := PDev.DevMode^.dmFields or 6; // = DM_PAPERLENGTH 4 | DM_PAPERSIZE 2