Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=151771&view=findpost&p=3367675 Tue, 22 Oct 2013 15:19:08 +0000 Печать в Delphi https://forum.sources.ru/index.php?showtopic=151771&view=findpost&p=3367675 Цитата Albinos_X @
Цитата seriy @
Можно ли программно установить нужный мне принтер

    WordApplication1.ActiveDocument.PrintOut(Background, Append_, Range, OutFileName, From,
                                             To_, Item, Copies, Pages, PageType, PrintToFile,
                                             Collate, ActivePrinterMacGX, ManualDuplexPrint,
                                             PrintZoomColumn, PrintZoomRow, PrintZoomPaperWidth,
                                             PrintZoomPaperHeight);

все параметры типа OleVariant

From - номер страницы с которой нужно начинать печать
To_ - номер последней печатаемой страницы, если стоит EmptyParam, то последняя
Copies - определяет количество копий
PrintToFile - указывает, должно ли печататься в файл (false и EmptyParam - не должно)
Collate - указывает, нужно ли разбирать по копиям (false и EmptyParam - не должно)

остальное могу только предположить, т.к. ещё не разбирался:

OutFileName - путь имя файла в который печатать
ActivePrinterMacGX - какой принтер использовать
ManualDuplexPrint - двухсторонняя печать

и т.д.

все это круто, но проблема у всех одна - сколько Copies не делай - печатает тока одну страницу и все!]]> PunkLexx Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=151771&view=findpost&p=1227518 Sun, 20 Aug 2006 12:51:48 +0000 Печать в Delphi https://forum.sources.ru/index.php?showtopic=151771&view=findpost&p=1227518 seriy Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=151771&view=findpost&p=1227336 Sun, 20 Aug 2006 07:38:44 +0000 Печать в Delphi https://forum.sources.ru/index.php?showtopic=151771&view=findpost&p=1227336 Цитата seriy @
Можно ли программно установить нужный мне принтер?

можно... :yes:
вот так
    uses
      IniFiles, Printers;
    {...}
    procedure TMainForm.FormCreate(Sender: TObject);
    begin
      cbPrinters.Items.Assign(Printer.Printers);
      cbPrinters.Text := Printer.Printers[Printer.PrinterIndex];
      lblPrinter.Caption := Printer.Printers[Printer.PrinterIndex];
    end;
     
    procedure TMainForm.cbPrintersChange(Sender: TObject);
    var
      IniFile: TIniFile;
      TempStr1, TempStr2: string;
      S: array[0..64] of char;
    begin
      with Printer do
      begin
        PrinterIndex := cbPrinters.ItemIndex;
        TempStr1 := Printers[PrinterIndex];
        System.Delete(TempStr1, Pos(' on ', TempStr1), Length(TempStr1));
        IniFile := TIniFile.Create('WIN.INI');
        try
          TempStr2 := IniFile.ReadString('Devices', TempStr1, '');
          IniFile.WriteString('windows', 'device', TempStr1 + ',' + TempStr2);
          StrCopy(S, 'windows');
          SendMessage(HWND_BROADCAST, WM_WININICHANGE, 0, LongInt(@S));
        finally
          IniFile.Free;
        end;
      end;
      lblPrinter.Caption := Printer.Printers[Printer.PrinterIndex];
    end;

cbPrinters - это ComboBox, lblPrinter - это Label]]> dron-s Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=151771&view=findpost&p=1227302 Sun, 20 Aug 2006 06:03:05 +0000 Печать в Delphi https://forum.sources.ru/index.php?showtopic=151771&view=findpost&p=1227302 Цитата seriy @
Можно ли программно установить нужный мне принтер

    WordApplication1.ActiveDocument.PrintOut(Background, Append_, Range, OutFileName, From,
                                             To_, Item, Copies, Pages, PageType, PrintToFile,
                                             Collate, ActivePrinterMacGX, ManualDuplexPrint,
                                             PrintZoomColumn, PrintZoomRow, PrintZoomPaperWidth,
                                             PrintZoomPaperHeight);

все параметры типа OleVariant

From - номер страницы с которой нужно начинать печать
To_ - номер последней печатаемой страницы, если стоит EmptyParam, то последняя
Copies - определяет количество копий
PrintToFile - указывает, должно ли печататься в файл (false и EmptyParam - не должно)
Collate - указывает, нужно ли разбирать по копиям (false и EmptyParam - не должно)

остальное могу только предположить, т.к. ещё не разбирался:

OutFileName - путь имя файла в который печатать
ActivePrinterMacGX - какой принтер использовать
ManualDuplexPrint - двухсторонняя печать

и т.д.]]> Albinos_X Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=151771&view=findpost&p=1227251 Sat, 19 Aug 2006 23:26:39 +0000 Печать в Delphi https://forum.sources.ru/index.php?showtopic=151771&view=findpost&p=1227251 И что это за Image Writer такой, че-то раньше я его не видел. Ксати при попытке печати pdf возникает та же самая проблема.]]> seriy Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=151771&view=findpost&p=1226944 Sat, 19 Aug 2006 13:00:49 +0000 Печать в Delphi https://forum.sources.ru/index.php?showtopic=151771&view=findpost&p=1226944 Цитата seriy
Может кто-то знает способ как через OLE можно связаться с Adobe Reader?


С Adobe Reader'ом идет ActiveX-компонент TAcroPDF. Лежит он в C:\Program Files\Adobe\Acrobat 7.0\ActiveX\AcroPDF.dll. Его надо инсталлировать через Component->Import ActiveX Control.]]> kalexs_uzb Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=151771&view=findpost&p=1226867 Sat, 19 Aug 2006 10:22:59 +0000 Печать в Delphi https://forum.sources.ru/index.php?showtopic=151771&view=findpost&p=1226867 seriy
лично я вот так работаю с вордом
    uses ComObj;
     
    var
      Word:variant;
     
    function CreateWord:boolean;
    begin
      CreateWord := true;
       try
        Word := CreateOleObject('Word.Application');
       except
        CreateWord := False;
       end;
     
    function VisibleWord(Visible:boolean):boolean;
    begin
      VisibleWord := True;
       try
        Word.Visible := Visible;
       except
        VisibleWord := False;
       end;
    end;

ну а дальше делаю то что мне нужно для решения задачи...]]> dron-s Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=151771&view=findpost&p=1226852 Sat, 19 Aug 2006 10:06:08 +0000 Печать в Delphi https://forum.sources.ru/index.php?showtopic=151771&view=findpost&p=1226852 seriy Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=151771&view=findpost&p=1226803 Sat, 19 Aug 2006 08:52:13 +0000 Печать в Delphi https://forum.sources.ru/index.php?showtopic=151771&view=findpost&p=1226803 Цитата seriy @
При использовании ShellExecute каждый раз открывается окно программы в которой выполняется печать

дык, запускается то она запускается, просто не показывай само окно, делай невидимым и всё... что разве не подходит? :blink:]]> dron-s Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=151771&view=findpost&p=1226789 Sat, 19 Aug 2006 08:39:44 +0000 Печать в Delphi https://forum.sources.ru/index.php?showtopic=151771&view=findpost&p=1226789 seriy Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=151771&view=findpost&p=1226730 Sat, 19 Aug 2006 07:33:28 +0000 Печать в Delphi https://forum.sources.ru/index.php?showtopic=151771&view=findpost&p=1226730 Возможность можно проверить правой кнопкой мыши на файле, если есть пункт Печать, то напрямую, если нет то откроется программа, которой можно печатать.]]> Anatoly Podgoretsky Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=151771&view=findpost&p=1226710 Sat, 19 Aug 2006 06:52:41 +0000 Печать в Delphi https://forum.sources.ru/index.php?showtopic=151771&view=findpost&p=1226710 OSokin Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=151771&view=findpost&p=1226636 Sat, 19 Aug 2006 03:32:42 +0000 Печать в Delphi https://forum.sources.ru/index.php?showtopic=151771&view=findpost&p=1226636 Цитата seriy @
А можно какой-нибудь для OLE или COM?

что можно то?]]> dron-s Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=151771&view=findpost&p=1226246 Fri, 18 Aug 2006 15:09:02 +0000 Печать в Delphi https://forum.sources.ru/index.php?showtopic=151771&view=findpost&p=1226246 seriy Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=151771&view=findpost&p=1226161 Fri, 18 Aug 2006 14:41:27 +0000 Печать в Delphi https://forum.sources.ru/index.php?showtopic=151771&view=findpost&p=1226161 Цитата seriy @
Как можно распечатать файлы .pdf, .doc, .xls, .gif, .csv, .jpg, .txt, .bmp?

По-разному! Можно OLE или COM использовать для .pdf, .doc, .xls. Для .txt - TMemo. Для картинак - TImage.]]> Profi Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=151771&view=findpost&p=1226148 Fri, 18 Aug 2006 14:35:54 +0000 Печать в Delphi https://forum.sources.ru/index.php?showtopic=151771&view=findpost&p=1226148 seriy Delphi: Общие вопросы