Печать со 100% масштабом [D7, WinXP]
gonzales © (2005-01-27 19:19:00)
Использую следующий код для вывода файла на печать
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:00) [1]
Файл текстовый? Тогда печатай построчно. А вообще, насколько я
понимаю (хотя сам редко имею с этим дело), - народ сейчас обычно
использует готовые редакторы отчетов, если надо на принтер
чего-нибудь кинуть.
Наверх 
ЧАТ |
Орешник |
|
