Új hozzászólás Aktív témák

• #129 Divi aktív tag zenit #127

  Új Válasz 2004-11-01 22:00:53 #129

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Divi

  aktív tag

  válasz zenit #127 üzenetére

  A probléma látszólag megoldódott. De mégse hajlandó Ténylegesen Nyomtatni.
  
  A kód hibátlanul lefut.
  Ám a nyomtató azon kívül, hogy átfuttatná magán a papírt egy köpést se nyomtat.
  Vajh mitől lehet ez?
  
  A kód:
  Var szelesseg,magassag: Integer;
  dpix, dpiy:Integer;
  Begin
  printer.Copies:=1;
  printer.Orientation:=poPortrait;
  
  printer.BeginDoc;
  
  dpix:=GetDeviceCaps(Printer.Canvas.Handle, LOGPIXELSX);
  dpiy:= GetDeviceCaps(Printer.Canvas.Handle, LOGPIXELSY);
  szelesseg:=trunc((printer.PageWidth /dpix)*254); << megadja, hányszor 0,1 mm fér ki a lapra
  magassag:=trunc((printer.PageHeight /dpiy)*254);
  // showmessage('szélesség: '+inttostr(sz)); < ellenőrzés
  // showmessage('magasság: '+inttostr(m));
  
  SetMapMode(printer.Canvas.Handle,MM_LOMETRIC);
  
  printer.canvas.pen.width:=15;
  printer.Canvas.Pen.Color:=clBlack;
  printer.canvas.Moveto(0,0);
  printer.canvas.LineTo(sz,m);
  
  //printer.Abort;
  printer.EndDoc;
  end;
  
  
  ötletze valakinek?
  Egyébént így BÁRMILYEN nyomtatón ugyanazt az eredményt kapom?
  
  [Szerkesztve]

Új hozzászólás Aktív témák