Hello together,
the following Code causes the default printer to loose his default state, so that no printer is marked as default, at all:
our used version is 4.0.160
sPDFPrinter := 'PDF-XChange 4.0';
sTmpPath := GetTemporaryPath;
if not DirectoryExists(sTmpPath) then
ForceDirectories(sTmpPath);
sOldPDFSavePath := GetPDFSavePath;
oReg := TRegistry.Create;
oReg.RootKey := HKEY_CURRENT_USER;
sKeyPath := 'Software\Tracker Software\PDF-XChange 4.0\Drivers\PDF-XChange 4.0\Profiles\Current\Save';
if oReg.OpenKey(sKeyPath, TRUE) then
oReg.WriteString('Path', sTmpPath);
oReg.CloseKey;
oReg.Free;
moPDFPFactory := CoCPXCControlEx.Create;
pdfPrinter := moPDFPFactory.Printer['', sPDFPrinter, 'xxxxx-xxxxx-xxxxx-xxxxx-xxxxx-xxxxx', 'yyyyy$yyyyy$yyyyyy_yyyyyyy'];
sFileName := 'Offer_'+inttoStr(nNumber)+'.PDF';
pdfPrinter.Option['Save.File'] := sFileName;
pdfPrinter.Option['Save.SaveType'] := 'Save';
pdfPrinter.Option['Save.ShowSaveDialog'] := 'No';
pdfPrinter.Option['Save.WhenExists'] := 'Overwrite';
sFullFileName := GetTemporaryPath + '\' + sFileName;
pdfPrinter.Option['Save.FullFileName'] := sFullFileName;
if GetRunApp then
pdfPrinter.Option['Save.RunApp'] := 'Yes'
else
pdfPrinter.Option['Save.RunApp'] := 'No';
pdfPrinter.Option['Save.Path'] := GetTemporaryPath;
pdfPrinter.Option['DocInfo.Enabled'] := 'Yes';
pdfPrinter.Option['DocInfo.Title'] := sFilename;
pdfPrinter.Option['DocInfo.Subject'] := sFilename;
pdfPrinter.Option['DocInfo.Author'] := sLoginname;
pdfPrinter.Option['DocInfo.Creator'] := sApplicationCaption;
pdfPrinter.Option['Saver.ShowProgress'] := 'No';
pdfPrinter.Option['Fonts.EmbedAll'] := 'Yes';
Printer.Refresh;
sPDFPrinterName := pdfPrinter.Name;
sOLDPrinterName := Printer.Printers[Printer.Printerindex];
Printer.PrinterIndex := Printer.Printers.Indexof(sPDFPrinterName);
All testet operationsystems work fine except that, thas described in the subject
do you have any idea?
is there a update available?
do we have to you a special 64bit variant of PDF-XChange 4.0?
thnx for you efforts
lost default printer under WIN 2008 Server 64 SR2
Moderators: TrackerSupp-Daniel, Tracker Support, Vasyl-Tracker Dev Team, Chris - Tracker Supp, Sean - Tracker, Tracker Supp-Stefan
-
- User
- Posts: 1
- Joined: Tue Apr 18, 2006 11:02 am
-
- User
- Posts: 223
- Joined: Wed Aug 22, 2007 4:40 pm
Re: lost default printer under WIN 2008 Server 64 SR2
I think you have posted in the wrong forum. This is the forum for PDF-XChange Viewer which is a completely different product from PDF-XChange.
Although maybe the Tracker support staff will move your message into the correct forum.
Although maybe the Tracker support staff will move your message into the correct forum.
-
- Site Admin
- Posts: 3556
- Joined: Thu Jul 08, 2004 10:36 pm
- Location: Vancouver Island - Canada
Re: lost default printer under WIN 2008 Server 64 SR2
LLohnstein: please use newer version of the driver.
Tracker Software (Project Director)
When attaching files to any message - please ensure they are archived and posted as a .ZIP, .RAR or .7z format - or they will not be posted - thanks.
When attaching files to any message - please ensure they are archived and posted as a .ZIP, .RAR or .7z format - or they will not be posted - thanks.
-
- Site Admin
- Posts: 17960
- Joined: Mon Jan 12, 2009 8:07 am
- Location: London
Re: lost default printer under WIN 2008 Server 64 SR2
LLohnstein, please let us know if the newer driver solved your problem
p.s. Topic moved
Regards,
Stefan
p.s. Topic moved
Regards,
Stefan
-
- Site Admin
- Posts: 5219
- Joined: Tue Jun 29, 2004 10:34 am
- Location: United Kingdom
Re: lost default printer under WIN 2008 Server 64 SR2
Assumed resolved !
If posting files to this forum - you must archive the files to a ZIP, RAR or 7z file or they will not be uploaded - thank you.
Best regards
Tracker Support
http://www.tracker-software.com
Best regards
Tracker Support
http://www.tracker-software.com