Custom Paper Size for Printing

[lelu111]

I have a bitmap I want to print with a printer. However, I need to use a very specific paper size that does not match any common one. So I want to set the paper size in the code but only found the Papersize.PaperName working with which I can only set the common paper sizes. I checked and my printer also supports custom paper sizes. I found Printer.Papersize.PaperRect.PhysicalRect which I can calculate but I cannot change the variable.
Is there any way to set a cutom paper size?

[jamie]

Did you try the PageSetupDialog ?

there you can select CUSTOM and then adjust the size.

[lelu111]

I am aware there is a dialog window for it, but firstly: I don't know if I have to extract those values and if yes, how; secondly: it would be better for me to hardcode the paper size because it would be annoying at runtime if every time I want to print I have to deal with a popup window. So I would only use it if there is no other way I can do it.

[PawelO]

Encountered same problem recently, and found a "solution": you have to set the custom PaperSize.PaperRect twice, then it would be actually used. At least this works with creating custom-sized PDF with CutePDF printer app, I haven't tried other printers. Looks like a bug, or I'm missing something?

Code: Pascal  [Select][+][-]

1. var
2.   paperSize: TPaperRect;
3. begin
4.   Printer.SetPrinter(cbPrinter.Text); //from ComboBox
5.  
6.   paperSize.PhysicalRect.Left   := 0;
7.   paperSize.PhysicalRect.Top    := 0;
8.   paperSize.PhysicalRect.Width  := round((10 / 2.54) * Printer.XDPI); //10 x 10 cm
9.   paperSize.PhysicalRect.Height := round((10 / 2.54) * Printer.YDPI);
10.   paperSize.WorkRect := paperSize.PhysicalRect;
11.  
12.   Printer.PaperSize.PaperRect := paperSize;
13.   Printer.PaperSize.PaperRect := paperSize; //apparently this is necessary
14.  
15.   Printer.BeginDoc();
16.   ...