Debenu Quick PDF Library - PDF SDK Community Forum : how to let get GetPrinterDevModeToString printDi http://www.quickpdf.org/forum/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Wed, 15 Apr 2026 06:55:49 +0000 Fri, 19 Jun 2020 02:12:24 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 11.01 360 www.quickpdf.org/forum/RSS_post_feed.asp?TID=3820 <![CDATA[Debenu Quick PDF Library - PDF SDK Community Forum]]> http://www.quickpdf.org/forum/forum_images/QPDF_Forum_Title.png http://www.quickpdf.org/forum/ <![CDATA[how to let get GetPrinterDevModeToString printDi : finally, I got contact with Foxit.and...]]> http://www.quickpdf.org/forum/how-to-let-get-getprinterdevmodetostring-printdi_topic3820_post15276.html#15276 Author: mitchellhu
Subject: 3820
Posted: 19 Jun 20 at 2:12AM

finally, I got contact with Foxit.
and they prove GetPrinterDevModeToString(MyPrinter) function contains a bug in QPL before version 18.11. also , they apply a alternative solution to get DeMode Sting as below:

var

  DevModeString: AnsiString;

  PrinterName: string;


procedure TForm1.btnGetDevModClick(Sender: TObject);

var

  MyPrinter, MyDriver, MyPort: array[0..255] of Char;

  DeviceHandle: THandle;

  DevMode: PDeviceMode;

  DevModeLen: Integer;

begin

  if PrinterSetupDialog1.Execute then

  begin

    Printer.GetPrinter(MyPrinter, MyDriver, MyPort, DeviceHandle);


    // This function contains a bug in QPL before version 18.11

    // DevModeString := QP.GetPrinterDevModeToString(MyPrinter);


    // Get the devmode string directly from the printer

    if DeviceHandle <> 0 then

    begin

      DevMode := GlobalLock(DeviceHandle);

      if (SizeOf(DevMode^) = DevMode^.dmSize) then

      begin

        DevModeLen := DevMode^.dmSize + DevMode^.dmDriverExtra;

        SetLength(DevModeString, DevModeLen);

        if (DevModeLen > 0) then

        begin

          Move(DevMode^, DevModeString[1], DevModeLen);

        end;

      end;

      GlobalUnlock(DeviceHandle);

    end;


    PrinterName := MyPrinter;

  end;

end;


procedure TForm1.btnPrintClick(Sender: TObject);

var

  CustomPrinter: string;

begin

  QP.SetPrinterDevModeFromString(DevModeString);

  CustomPrinter := QP.NewCustomPrinter(PrinterName);

  QP.DrawText(100, QP.PageHeight - 100, 'Top Left');

  QP.DrawText(100, 100, 'Bottom Left');

  QP.DrawText(QP.PageWidth - 100, 100, 'Bottom Right');

  QP.DrawText(QP.PageWidth - 100, QP.PageHeight - 100, 'Top Right');

  QP.PrintDocument(CustomPrinter, 1, 1, QP.PrintOptions(1, 0, 'My Doc'));

end;

so, case close.
Thanks for Ingo's replay , let me try to contact to again and again . Ha! Ha!
finally...... Foxit/Debenu still good as usual!


]]> Fri, 19 Jun 2020 02:12:24 +0000 http://www.quickpdf.org/forum/how-to-let-get-getprinterdevmodetostring-printdi_topic3820_post15276.html#15276 <![CDATA[how to let get GetPrinterDevModeToString printDi : try to some test , still not work.....I...]]> http://www.quickpdf.org/forum/how-to-let-get-getprinterdevmodetostring-printdi_topic3820_post15272.html#15272 Author: mitchellhu
Subject: 3820
Posted: 17 Jun 20 at 3:24PM

try to some test , still not work.....I do not know why
=============================================================
//button1 : get the printer 'CutePDF Writer' DevMode data to AnsiString variable : DeModeString
=============================================================
procedure TForm1.Button1Click(Sender: TObject);
var
  QP : TDebenuPDFlibrary1211;
begin
  if PrinterSetupDialog1.Execute then // change the papersize form A4 to A2
  begin
    QP := TDebenuPDFlibrary1211.Create;
    DeModeString := QP.GetPrinterDevModeToString('CutePDF Writer');
    QP.Free;
  end;
end;

==============================================================
Button3: set newprinter('CutePDF Writer') and set DevMode data from AnsiString variable : DeModeString
==============================================================
procedure TForm1.Button3Click(Sender: TObject);
VAR
  QP : TDebenuPDFlibrary1211;
  printoptions : Integer;
  newPrinter : string;
begin
   QP := TDebenuPDFlibrary1211.Create;
   QP.UnlockKey('myregkey');
   QP.LoadFromFile(sFilenameEdit1.Text,'');
   printoptions := QP.PrintOptions(1, 0, 'test');
   newPrinter := QP.NewCustomPrinter('CutePDF Writer');
   QP.SetPrinterDevModeFromString(DeModeString);
   QP.PrintDocument(newPrinter , 1, 1, printoptions); //
   Qp.Free
end;
===========================================================
but the print out file size is A4 not A2

I do not know why?



Edited by Ingo - 17 Jun 20 at 6:30PM]]> Wed, 17 Jun 2020 15:24:02 +0000 http://www.quickpdf.org/forum/how-to-let-get-getprinterdevmodetostring-printdi_topic3820_post15272.html#15272 <![CDATA[how to let get GetPrinterDevModeToString printDi : Thanks for you replay.I make a...]]> http://www.quickpdf.org/forum/how-to-let-get-getprinterdevmodetostring-printdi_topic3820_post15271.html#15271 Author: mitchellhu
Subject: 3820
Posted: 17 Jun 20 at 12:31AM

Thanks for you replay.
I make a support on Foxit/Denbenu web last week, but still have no any replay from then.
I buy DebenuPdflibray1211 for Delphi form Denbenu. 
Before Denbenu merge into Foxit, Denbenu always help me to solve problem quickly , but even get a reply is impossible. 
sorry for my bad English ability, maybe I miss some contact information on the web site. 
please show me the correct way(mail) to contact them.

Thank you.]]> Wed, 17 Jun 2020 00:31:44 +0000 http://www.quickpdf.org/forum/how-to-let-get-getprinterdevmodetostring-printdi_topic3820_post15271.html#15271 <![CDATA[how to let get GetPrinterDevModeToString printDi : &#034;...Why Debenu/Foxit support...]]> http://www.quickpdf.org/forum/how-to-let-get-getprinterdevmodetostring-printdi_topic3820_post15270.html#15270 Author: Ingo
Subject: 3820
Posted: 12 Jun 20 at 8:49PM

"...
Why Debenu/Foxit support system seems not working any more?
..."

There was another user few days ago telling about good contact with the support team.
For me it's the same... I send normal emails and i get an answer.
Perhaps you want to discuss a problem which can't be solved with QuickPDF?

]]> Fri, 12 Jun 2020 20:49:13 +0000 http://www.quickpdf.org/forum/how-to-let-get-getprinterdevmodetostring-printdi_topic3820_post15270.html#15270 <![CDATA[how to let get GetPrinterDevModeToString printDi : 1.DenbenuPdf library Version :...]]> http://www.quickpdf.org/forum/how-to-let-get-getprinterdevmodetostring-printdi_topic3820_post15269.html#15269 Author: mitchellhu
Subject: 3820
Posted: 12 Jun 20 at 3:19AM

1.DenbenuPdf library Version : DebenuPDFLibrary1211
2.Develop Tool : Delphi Xe2 update 4

Try to use GetPrinterDevModeToString to save Delphi TPrinterDialog setting;
but I found it is seem impossibe, because the Delphi TprinterDialg no any printsettings
variable to keep setting. 

I use QP.GetPrinterDevModeToString to keep the settings, but it seems get the default setting only,
so use use QP.SetPrinterDevModeFromString and QP.PrintDocument will get print PDf file size no as expected.

nomorely, a MS Excel file can be setup print size by its printsetupDialg , then print the right size as he/she need. so , I think Debenupdf library could do it correctly also, 
Please give some suggestion.
//P.S: Why Debenu/Foxit support system seems not working any more!!!
]]> Fri, 12 Jun 2020 03:19:18 +0000 http://www.quickpdf.org/forum/how-to-let-get-getprinterdevmodetostring-printdi_topic3820_post15269.html#15269