Fast Raport Sorunu

[function]

Merhabalar,
Fast Raport ta A4'ün yarısı büyüklüğünde sürekli forma yazdırmak istiyorum. Tüm Page ayarlarını yapmama rağmen yazdıktan sonra kafa sanki kağıt A4 müş gibi sonuna kadar gidiyor. Halbuki kafanın benim istediğim yerde durup ikinci sayfadan tekrar baslayıp yazması gerekiyor.Bu arada baskı aldığım Printer Oki. Bilmediğim başka bir ayar mı var? Yardımcı olursanız sevinirim.

[csunguray]

Denetim masası >Yazıcı ve Fakslar dan yazıcının sayfa ayarını A5'e getirin.

[function]

Merhaba,
Henüz denemedim ama aklıma geldi. Aynı printerden A4 formatında başka bir evrak daha basılıyor. Bu durumda sıkıntı yaşar mıyım?
Teşekkürler..

[Battosai]

Yazıcıdan çıktı almadan önce printerdialog'u kullanıp sayfa boyutunu ayarlayabilirsin...Yok dialog falan açılmasın direk ayarlasın dersen yine kod ile Kağıt boyutu ayarlanabilir...Yazdırma işleminden önce kağıt boyutunu ayarlayan bir kod ile duruma göre A4 veya A5 yazdırabilirsin....Aşağıdaki kodu kullanabilirsin...

Kod: Tümünü seç

procedure SetPrinterSettings(FPrinter: TPrinter);
var
  FDevice: PChar;
  FDriver: PChar;
  FPort: PChar;
  DeviceMode: THandle;
  DevMode: PDeviceMode;
begin
  {to get a current printer settings}
  FPrinter.GetPrinter(FDevice, FDriver, FPort, DeviceMode);
  {lock a printer device}
  DevMode := GlobalLock(DeviceMode);

  {set a paper size as A4-Transverse}
  if ((DevMode^.dmFields and DM_PAPERSIZE) = DM_PAPERSIZE) then
  begin
    DevMode^.dmFields := DevMode^.dmFields or DM_PAPERSIZE;
    DevMode^.dmPaperSize := DMPAPER_A4_TRANSVERSE;
  end;

  {set a paper source as Tractor bin}
  if  ((DevMode^.dmFields and DM_DEFAULTSOURCE) = DM_DEFAULTSOURCE) then
  begin
    DevMode^.dmFields := DevMode^.dmFields or DM_DEFAULTSOURCE;
    DevMode^.dmDefaultSource := DMBIN_TRACTOR;
  end;

  {set a Landscape orientation}
  if  ((DevMode^.dmFields and DM_ORIENTATION) = DM_ORIENTATION) then
  begin
    DevMode^.dmFields := DevMode^.dmFields or DM_ORIENTATION;
    DevMode^.dmOrientation := DMORIENT_LANDSCAPE;
  end;

  {set a printer settings}
  FPrinter.SetPrinter(FDevice, FDriver, FPort, DeviceMode);

  {unlock a device}
  GlobalUnlock(DeviceMode);
end;