Принтер не печатет в Win98, по команде WriteLn

← →
Gennadiy (2003-04-02 19:59) [0]

Уважаемые мастера!!!
Подскажите почему данный код работает в Windows 2000, а в Windows 98 не работает.
procedure TForm1.SpeedButton3Click(Sender: TObject);
PrFile:TextFile;
begin
If PrintDialog1.Execute then
begin
AssignPrn(PrFile);
ReWrite(PrFile);
WriteLn(PrFile, "любые данные");
System.CloseFile(PrFile);
end;
end;

← →
Mike Kouzmine (2003-04-02 20:09) [1]

А принтер как настроен?

← →
Song (2003-04-02 21:32) [2]

Принтер наверно лазерный?

← →
Gennadiy (2003-04-03 10:29) [3]

Принтер струйный

← →
ZmeiGorin (2003-04-03 10:33) [4]

Брр... процедурный подход... Да и процедуры какие-то левые :-)
А что значит работает/не работает?

Принтер не печатет в Win98, по команде WriteLn Найти похожие ветки