Печать со 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]

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

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