Принтер не печатет в 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]

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

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

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