🚀 go-pugleaf

Well, i found this code :

//-------------------------------------------------------------
void __fastcall TForm1::ChangePaperSize(int PaperSize)
{
  char PrinterName[256];
  char DriverName[256];
  char PortName[256];
  THandle hDevMode;
  PDEVMODE pDevMode;

  Printer()->GetPrinter
(PrinterName,DriverName,PortName,hDevMode);

  if(hDevMode)
  {
    pDevMode = (PDEVMODE)GlobalLock((void*)hDevMode);
    if(pDevMode){
      pDevMode->dmPaperSize = PaperSize;
      GlobalUnlock((void*)hDevMode);
    }
    GlobalFree((void*)hDevMode);
  }
}

It accepts one A5 paper now if i add ChangePaperSize
(DMPAPER_A5); in front of the Printer()->BeginDoc();
But now it does not print!! Why it doesnt print now?

Eugene

"Eugene" <eugene@dmx.de> wrote:
>
>Hi there,
>
>I wrote a small program and it uses this procedure for printing.
>
>Printer()->Title = "PrintOut";
>Printer()->BeginDoc();
>Printer()->Canvas->Font->Size = 10;
>Printer()->Canvas->TextOutA(1600,205,"3887");
>Printer()->Canvas->TextOutA(1500,280,"Adams Hoop");
>Printer()->Canvas->Font->Size = 12;
>Printer()->Canvas->TextOutA(1450,375,Edit1->Text);
>Printer()->Canvas->TextOutA(770,375,"# "+Edit2->Text+" #");
>Printer()->Canvas->TextOutA(1100,480,Edit6->Text);
>Printer()->Canvas->Font->Size = 10;
>Printer()->Canvas->TextOutA(250,525,"+Edit3->Text+" .-
>"+ComboBox1->Text);
>Printer()->Canvas->TextOutA(250,570,Edit4->Text);
>Printer()->Canvas->TextOutA(350,620,Edit5->Text);
>Printer()->Canvas->TextOutA(320,670,IntToStr(Day));
>Printer()->Canvas->TextOutA(430,670,IntToStr(Month));
>Printer()->Canvas->TextOutA(520,670,IntToStr(Year));
>Printer()->EndDoc();
>
>It works great but there is a small problem with it.I'm using 
>Lexmark 2380 plus for printing and I'm using A5 papers(210x148 
>mm, half of A4 210x297 mm).When i print first document and load 
>second paper, it ejects the second paper.Then i load it again 
>it accepts.I think it is caused that i can not define the 
>default paper to A5.It still takes it as A4.
>So how can i solve it?
>
>
>Eugene