تغییر پرینتر پیش فرض ویندوز در fastreport

[daneshmand1354]

با سلام
اگر پرینتر پیش فرض ویندوز را عوض کنیم تا زمانی که از برنامه یکبار خارج نشویم در fastreport پرینتر پیش فرض تغییر نمیکند آیا راهی هست که بدون خروج از برنامه پرینتر fastreport عوض شود.

[tiphooo]

این کدها را آنجایی که می خواهی گزارش را نمایش دهی (Preview) وارد کن
var
DefaultPrinterName:String;
PrinterName: array[0..255] of Char;
begin
GetProfileString('windows', 'device', '', PrinterName, 255);
DefaultPrinterName := Copy(PrinterName, 1, Pos(',', PrinterName) - 1);
frxReport1.PrintOptions.Printer:=DefaultPrinterNam e;
frxReport1.ShowReport();
در اینصورت نیازی نیست از برنامه خارج شوی ولی گزارش را باید یک بار ببندی و باز کنی

[daneshmand1354]

این کدها را آنجایی که می خواهی گزارش را نمایش دهی (Preview) وارد کن
سلام ممنون از توجه شما
این کدی که شما نوشتید را تست کردم ولی مشکل را حل نکرد

var
DefaultPrinterName:String;
PrinterName: array[0..255] of Char;
begin
GetProfileString('windows', 'device', '', PrinterName, 255);
DefaultPrinterName := Copy(PrinterName, 1, Pos(',', PrinterName) - 1);
frmfp.frxReport1.PrintOptions.Printer:=DefaultPrin terName;
Showmessage(DefaultPrinterName);
frmfp.frxReport1.LoadFromFile('1.fr3');
frmfp.frxReport1.ShowReport;
end;


ولی وقتی در قسمت Printer & Fax پرینتر پیش فرض ویندوز را عوض می کنیم
دستور
Showmessage(DefaultPrinterName);
پرینتر پیش فرض ویندوز را به درستی نمایش می دهد

ولی برنامه fastreport باز هم همان پرینتر قبلی را نشان میدهد

[tiphooo]

دوست عزیز کد frmfp.frxReport1.PrintOptions.Printer:=DefaultPrin terName
را به بعد از Load انتقال بده
یعنی به اینصورت
var
DefaultPrinterName:String;
PrinterName: array[0..255] of Char;
begin
GetProfileString('windows', 'device', '', PrinterName, 255);DefaultPrinterName := Copy(PrinterName, 1, Pos(',', PrinterName) -
1)
frmfp.frxReport1.LoadFromFile('1.fr3');

;frmfp.frxReport1.PrintOptions.Printer:=DefaultPri nterName;
Showmessage(DefaultPrinterName);
frmfp.frxReport1.ShowReport;
end;

[daneshmand1354]

دوست عزیز کد frmfp.frxReport1.PrintOptions.Printer:=DefaultPrin terName
را به بعد از Load انتقال بده
از راهنمایی شما بی نهایت سپاسگذارم
مشکل حل شد
امیدوارم بتوانم جبران کنم
باز هم ممنون