Ошибка при выводе на печать

[giveaway]

Создаю код для вывода на печать картинки из файла. Взял за основу рабочий пример. Вот мой, немного переделанный, код

void __fastcall TForm1::PrintImageh(TImage *ImageTmp) {
  TRectF SrcRect, DestRect;
  TPrinter *Printer = Printer;
 if(!Printer)
		  return;
  /* Set the default DPI for the printer. The SelectDPI routine defaults
         to the closest available resolution as reported by the driver. */
if(Printer->ActivePrinter->SelectDPI(1200, 1200)==false)   return;
  /* Set canvas filling style. */
 Printer->Canvas->Fill->Color = claBlack;
Printer->Canvas->Fill->Kind = TBrushKind(1);

  /* Start printing. */
  Printer->BeginDoc();
  /* Set the Source and Destination TRects. */
  SrcRect = ImageTmp->LocalRect;
  DestRect = TRectF(0, 0, Printer->PageWidth, Printer->PageHeight);

  /* Print the picture on all the surface of the page and all opaque. */
  Printer->Canvas->DrawBitmap(ImageTmp->Bitmap, SrcRect, DestRect, 1);
  /* Finish the printing job. */
  Printer->EndDoc();
}

Происходит вылет на строке if(Printer->ActivePrinter->SelectDPI(1200, 1200)==false) return;
Что может быть не так?
 

Изменено 7 февраля, 2019 пользователем giveaway

[slav_z]

1 час назад, giveaway сказал:

Происходит вылет на строке if(Printer->ActivePrinter->SelectDPI(1200, 1200)==false) return;

вылет с ошибкой? какой? или вылет по return ?

ActivePrinter   не  nil (null) ?

[giveaway]

16 часов назад, slav_z сказал:

вылет с ошибкой? какой? или вылет по return ?

 

Почему-то при первом запуске (нажатии кнопки Печать) строка
if(!Printer)
          return;
возвращает null. Хотя принтеры на компьютере есть.

При втором нажатии код уже вдруг переходит к условию
if(Printer->ActivePrinter->SelectDPI(1200, 1200)==false) return;

И происходит вот такоей вылет:

Сама функция вот такая, если что: