Форум: "Основная";
Текущий архив: 2005.02.13;
Скачать: [xml.tar.bz2];

Вниз

Печать со 100% масштабом   Найти похожие ветки 

← →
gonzales   (2005-01-27 19:19) [0]

Использую следующий код для вывода файла на печать

procedure tform1.Printing(file_name:string);
var
  Device: array[0..255] of Char;
  Driver: array[0..255] of Char;
  Port: array[0..255] of Char;
  S: string;
  hDeviceMode: THandle;
  documentname: string;
begin
printer.PrinterIndex:=combobox1.ItemIndex;
 Printer.GetPrinter(Device, Driver, Port, hDeviceMode);
  S := Format(""%s" "%s" "%s"", [Device, Driver, Port]);

  documentname := file_name;
  ShellExecute(Handle, "printto", PChar(documentname), PChar(S), nil, SW_HIDE);

но загвоздка в том, что файл получается масштабированным:(
Как быть

---

← →
TUser ©   (2005-01-27 21:10) [1]

Файл текстовый? Тогда печатай построчно. А вообще, насколько я понимаю (хотя сам редко имею с этим дело), - народ сейчас обычно использует готовые редакторы отчетов, если надо на принтер чего-нибудь кинуть.

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2005.02.13;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.041 c