Операция не поддерживается, и выбранный принтер недействителен во время печати.

Не прямое решение, но может помочь решить проблему. Первое, что я делаю с такой проблемой, это получаю точную версию драйвера от клиента, а затем загружаю драйвер и устанавливаю его на свой компьютер с помощью LPT1. Затем я могу распечатать его для тестирования и решить любые проблемы с драйвером. Очевидно, я не могу печатать, но обычно это не проблема. Использование виртуальной машины также очень помогает.

Не решение, а совет по уменьшению поверхности ошибки: установите (или попросите пользователя установить) виртуальный принтер в этой системе и попробуйте печатать на нем. К бесплатному (и как в пиве, и как в свободе) виртуальному принтеру PDF прилагается отличный PDFCreator . Он определенно поддерживает ориентацию страницы. Это даст вам известную хорошую основу для тестирования.

Вы говорите, что небольшой процент пользователей сообщает о проблемах. Вы хоть представляете, в чем разница между этими и другими пользователями?

В раздумьях о:

• подержанные принтеры
• драйверы принтера (версия)
• Используемая ОС, включая исправления и обновления (не забывайте об обновлениях IE)
• версия вашего ПО
• другое установленное ПО

Есть ли у пользователей проблемы с печатью в других приложениях?

Было бы здорово, если бы вы смогли воспроизвести проблему.

У меня есть клиент с похожей (или, по крайней мере, похожей) проблемой. Строка кода, в которой мы получаем сообщение «Выбранный принтер недействителен», немного отличается (в библиотеке быстрых отчетов), но это точно так же вызов GetDeviceCaps.

Хотя нам еще предстоит найти реальное решение, мы нашли обходной путь. Если пользователь открывает диалоговое окно «Настройка принтера» перед попыткой распечатать отчет, ошибка не появляется.

Вы видели эти сайты, которые я нашел с некоторой помощью Google:

http://www.delphipages.com/threads/thread.cfm?ID=19871&G=19828

http://www.contactplus.com/cfaq/index.php?qid=381&catid=4

У меня были пользователи, сообщающие об этой же ошибке, но только в Windows Vista. Windows XP и 7, похоже, не имеют такой же проблемы. Я обнаружил, что на компьютерах с Windows Vista отключение UAC устраняет эту проблему.

Это сработало для меня. Я использую его, прежде чем пытаться получить дескриптор принтера.

procedure InvalidatePrinter;
var
  dev,
  driv,
  port: array[0..80] of Char;
  deviceMode: THandle;
begin
  Printer.GetPrinter(dev, driv, port, deviceMode);
  Printer.SetPrinter(dev, driv, port, 0)
end;

Ошибка, которую вы получаете, указывает на то, что SetDefaultPrinter или перечисление принтеров не работают. SetDefaultPrinter выглядит немного пугающе в Delphi 7. Например, он пытается прочитать принтер по умолчанию из реестра. В новых версиях Delphi стало лучше, но я все еще исправляю Printers.pas в каждой новой версии.

Это мой патч для Delphi 2009. Возможно, вам придется внести некоторые коррективы в Delphi 7, но это должно дать вам представление. От первоначальной функции мало что осталось.

{$IFDEF UNICODE}
function GetDefaultPrinter(DefaultPrinter: PChar; var I: Integer): BOOL; stdcall;
  external winspl name 'GetDefaultPrinterW';
{$ELSE}
function GetDefaultPrinter(DefaultPrinter: PChar; var I: Integer): BOOL; stdcall;
  external winspl name 'GetDefaultPrinterA';
{$ENDIF}

procedure TPrinter.SetToDefaultPrinter; //@@@ SZ
var
  I: Integer;
  Err: DWORD;
  Device: PChar;
begin
  I := 0;
  if not GetDefaultPrinter(nil, I) then       //  (this should return false because the buffer is too small)
  begin
    Err := GetLastError;
    if (Err = ERROR_FILE_NOT_FOUND) or (I = 0) then
       RaiseError(SNoDefaultPrinter)
    else if Err = ERROR_INSUFFICIENT_BUFFER then
    begin
      Device := StrAlloc(I);
      try
        if GetDefaultPrinter(Device, I) then
        with Printers do
          for I := 0 to Count-1 do
          begin
            if AnsiSameText(TPrinterDevice(Objects[I]).Device, Device) then
            begin
              with TPrinterDevice(Objects[I]) do
                SetPrinter(PChar(Device), PChar(Driver), PChar(Port), 0);
              Exit;
            end;
          end
        else
          RaiseLastOSError;
      finally
        StrDispose(Device);
      end;
    end
    else
      RaiseLastOSError;
  end;
  RaiseError(SNoDefaultPrinter);
end;

Если это не сработает, то следующим шагом будет проверка причины сбоя перечисления принтеров. Взгляните на «Устройство», «Драйвер», «Порт» в списке TPrinterDevice.

http://zpay.com/vbulletin/showthread.php?2310-Printer-selected-is-not-valid , http://support.quickbooks.intuit.com/support/articles/SLN40193 и Delphi Win32 Service Printer Selected is not valid error on the 2008 64bit Standard server перечислите возможные причины.

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

Я предполагаю, что Delphi пытается открыть принтер по запросу, когда вы обращаетесь к соответствующему свойству, и, поскольку фреймворки печально известны этим, скрывает реальную ошибку.

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

Это чисто анекдотично, но может иметь значение.

Я только что искал сообщение об ошибке «Выбранный принтер недействителен» в приложении Delphi 5.

Программное обеспечение создавало виртуальный принтер для создания файлов .pdf. Я обнаружил, что «старый» принтер был сохранен по его индексу, что было ненадежным средством возврата к нему после завершения операции pdf.

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

Кстати - QuickReports был задействован.

Возможно, вам придется настроить принтер delphi.pas - есть несколько ошибок в реализации принтера, по крайней мере, в более старых версиях delphi, например. если UNC-имя сетевого принтера слишком длинное, Delphi может выйти из строя.