Excel, активный принтер.

[SuperVisor]

Доброго времени суток, уважаемые. Прошу не судить строго за то, что тема в этом разделе, а не в разделе Excel - здесь народа больше, да и вопрос по части Delphi больше профилирует...

История такова: есть у меня приложение, в котором необходимо формировать документ со штрих-кодами и подписями к ним (аналог этикеток в гипер-маркетах), есть код, который красивенько в через стандартный сервер Excel2000 формирует страничку... И, наконец, есть прелестный принтер Zebra у заказчика...

А вот и сама ситуёвина: все бы ничего, да беда в том, что принтер этот они принципиально не ставят по умолчанию, а выставить его в Excel не получается. Почему, спросите вы?.. Да потому что Printer.Printers дает нам имена принтеров, а при попытке установить ExcelApplication.ActivePrinter[0] наш Excel ждет имя принтера + [(NeXX:),(LTPX:)]... Вот пожалуй и вопрос: Как мне получить эти Excel'евские приписочки?

Передавать принтер в PrintOut не предлагать - нужно еще и размер бумажки нужный выставить, а если это делать до PrintOut - ExcelApplication громко сругнется, что невозможно установить свойство PaperSize...

[raxp]

что принтер этот они принципиально не ставят по умолчанию

а почему-бы не выставить на время печати нужный по-умолчанию принтер, а потом вернуть старый?

var gl_temp: integer;

procedure TForm1.FormCreate(Sender: TObject);
begin
 combobox1.Items.Assign(Printer.Printers);
 combobox1.Text := Printer.Printers[Printer.PrinterIndex]; 
 // запоминаем текущий
 gl_temp:= Printer.PrinterIndex
 // индикация текущего
 //Caption := Printer.Printers[Printer.PrinterIndex];
end;

procedure TForm1.set_default(index: integer);
var IniFile: TIniFile;
  TempStr1, TempStr2: string;
  S: array[0..64] of char;
begin
  with Printer do
  begin
    PrinterIndex := Index;
    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;
  //Caption := Printer.Printers[Printer.PrinterIndex]
end;

...
//устанавливаем-
set_default(нужный - или по имени);
...
ваша процедура печати
...
set_default(gl_temp); // возвращаем-
//

[SuperVisor]

Предложение, несомненно, неплохое - вариант я такой уже рассматривал. Однако тут встает вопрос о практичности такого применения: любой PrintOut Excel'евского сервера напрочь вешает мое приложение до завершения предварительного просмотра (обязательное требование заказчика). А юзвери, как вы понимаете, не прочь поделать что-нибудь еще. Например распечатать свою фотографию... Мне жалко этот маленький зверек с названием Зёбра, предназначенный для печати именно штрих-кодов )) Плюсом к описанному: если у нас уже открыт Excel, то изменение дефолтного принтера будет давать результат рандомной успешности на различных платформах и версиях Excel.

К тому же это уже помимо задачи - спортивный интерес..

[raxp]

любой PrintOut Excel'евского сервера напрочь вешает мое приложение до завершения предварительного просмотра (обязательное требование заказчика)

- неясно, что является требованием заказчика? предварительный просмотр?

А юзвери, как вы понимаете, не прочь поделать что-нибудь еще. Например распечатать свою фотографию... Мне жалко этот маленький зверек с названием Зёбра, предназначенный для печати именно штрих-кодов

- это проблема ответственности. другой вопрос, если заказчик требует чтобы зверек работал только на штрихкоды, значит нужно делать постоянную проверку посылки на него и блокировать... как, нужно обмозговать (если принтер сетевой, то через netapi можно перехватывать сессии и обрывать, если локальный- пока мыслей конструктивных нет)

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

- значит проверять, открыт-ли, если да то завершать, устанавливать и посылать...
вот тут неясно, определитесь, либо вы через эксель делаете, либо из своего приложения печатаете...

[SuperVisor]

Сообщение от raxp

- неясно, что является требованием заказчика? предварительный просмотр?

Именно.

Сообщение от raxp

- это проблема ответственности. другой вопрос, если заказчик требует чтобы зверек работал только на штрихкоды, значит нужно делать постоянную проверку посылки на него и блокировать... как, нужно обмозговать (если принтер сетевой, то через netapi можно перехватывать сессии и обрывать, если локальный- пока мыслей конструктивных нет)

Чрезмерно тривиально.

Сообщение от raxp

- значит проверять, открыт-ли, если да то завершать, устанавливать и посылать...

А представьте, как будет рад заказчик, когда я закрою какой-нибудь не сохраненный годовой отчет бухгалтерии. Утрирую, конечно, но так оно.

Сообщение от raxp

вот тут неясно, определитесь, либо вы через эксель делаете, либо из своего приложения печатаете...

Происходит формирование документа Excel посредством моего приложения. Печатает, естественно, Excel.
raxp, Вы уже достаточно отклонились от темы - прочтите первый пост.