Ошибка печати

@TrollHammer · Регистрация: 22.02.2018

Author24 — интернет-сервис помощи студентам

Доброго времени суток! Есть такой код, который должен печатать картинку

C++

void __fastcall TfMap::tbPrintClick(TObject *Sender)
{
    TGraphic *gSS   = new Graphics::TBitmap;
 
     TPrinter *prt = Printer();
     TRect destRect;
 
     prt->Orientation = poLandscape;  //данная строка вызывает непонятное поведение
 
      gSS = wMap->ScreenShot(itBitmap); //получаем картинку в Bitmap
 
          destRect = Rect(0, 0, prt->PageWidth, prt->PageHeight); //подстройка под альбомную печать
 
          prt->BeginDoc();
 
           prt->Canvas->StretchDraw(destRect, gSS);
 
          prt->EndDoc();
 
    delete gSS;
 
    prt->Free();
}

Если убрать

C++

1	prt->Orientation = poLandscape;

, то картинка выводится на принтер, но в книжной ориентации. При установке данной строки печать не происходит, в очереди печати пусто, но при повторном вызове вылетает ошибка "Printing in progress". В чем может быть дело? Среда RAD 10.3, Windows 10.

Добавлено через 22 минуты
При замене

C++

1	prt->Canvas->StretchDraw(destRect, gSS);

на

C++

1	prt->Canvas->Draw(0, 0, gSS);

картинка выводится в обоих ориентациях страницы, но не растягивается на страницу.

Добавлено через 11 минут
Попробовал вот такой костыль

Кликните здесь для просмотра всего текста

C++

void __fastcall TfMap::tbPrintClick(TObject *Sender)
{
    TGraphic *gSS   = new Graphics::TBitmap;
    TPicture *gST   = new TPicture;
 
     TPrinter *prt = Printer();
     TRect destRect;
 
     prt->Orientation = poLandscape;
 
      gSS = wMap->ScreenShot(itBitmap);
 
          destRect = Rect(0, 0, prt->PageWidth, prt->PageHeight);  //gSS->Height, gSS->Width);
 
       gST->Bitmap->Height = prt->PageWidth;
       gST->Bitmap->Width  = prt->PageHeight;
 
        gST->Bitmap->Canvas->StretchDraw(destRect, gSS);
 
          prt->BeginDoc();
 
           //prt->Canvas->StretchDraw(destRect, gSS);
           prt->Canvas->Draw(0, 0, gST->Bitmap);
 
          prt->EndDoc();
 
    delete gST;
    delete gSS;
 
   //   prt->Free();
}

Поставил бряки на prt->BeginDoc()/EndDoc() - документ ставится в очередь печати, даже размер похож, но сама печать не происходит.

@TrollHammer · 11.09.2024, 06:00 **[ТС]**

Попробовал натянуть сову на глобус другой стороной

Кликните здесь для просмотра всего текста

C++

void __fastcall TfMap::tbPrintClick(TObject *Sender)
{
      TPicture *gSS = new TPicture();
 
     TPrinter *prt = Printer();
     TRect destRect;
 
          prt->Title = "Map";
          prt->Orientation = poLandscape;
 
          gSS->Bitmap->Height = prt->PageHeight;
          gSS->Bitmap->Width  = prt->PageWidth;
 
          destRect = Rect(0, 0, prt->PageWidth, prt->PageHeight);
          gSS->Bitmap->Canvas->StretchDraw(destRect, wMap->ScreenShot(itBitmap));
 
          prt->BeginDoc();
            prt->Canvas->Draw(0, 0, gSS->Bitmap);
          prt->EndDoc();
 
    delete prt;
    delete gSS;
}

на PDF принтер картинку выводит, все ОК, на физический - ставит очередь печати, потом очередь очищается и все! Кто-нибудь сталкивался с таким поведением?

@nick42 · 11.09.2024, 12:50

Я сталкивался, но причина была чисто механическая (на материнке был выпаян реалтековский чип сети), и в диспетчере устройств висел принтер с "отсутствующими драйверами", хотя "Устройства и принтеры" показывали его как рабочий. Так что это явно не ваш случай...

@TrollHammer · 12.09.2024, 13:59 **[ТС]**

Короче, плюнул на танцы с бубном, используя работу с классом TPrinter (как ни странно, дома работает, как часы - конфиг ОС и принтеры те же), заморочился с OLE для формирования картинки в Word-е через ClipBoard (у заказчика сроки поджимают), допилю до нормального эстетического состояния (пока заказчика и черновая работа вывода на печать устраивает) и выложу. Может кому и пригодится.

Не по теме:

Плюнул тогда Кащей ядовитой слюной. Он поймал кенгуру, на жопе фломастером написал "Заиц", сунул ей в сумку утку и засунул в сундук. "Стероиды, иопть!" - ухмыльнулся старик и пошел спать.

@TrollHammer · 13.09.2024, 01:24 **[ТС]**

Получилось нечто такое, мож кому полезно будет

C++

void __fastcall TfMap::tbPrintClick(TObject *Sender)
{
    TGraphic *gSS   = new Graphics::TBitmap;
    unsigned int DataHandle;
    HPALETTE APalette;
    unsigned short MyFormat;
 
     gSS = wMap->ScreenShot(itBitmap);
     gSS->SaveToClipboardFormat(MyFormat, DataHandle, APalette);
         Clipboard()->SetAsHandle(MyFormat,DataHandle);
 
        vVarApp=CreateOleObject("Word.Application");
 
   vVarDocs=vVarApp.OlePropertyGet("Documents");
   vVarDocs.OleProcedure("Add");
   vVarDoc=vVarDocs.OleFunction("Item", 1);
 
   vVarDoc.OleProcedure("Activate");
 
   vVarParagraphs=vVarDoc.OlePropertyGet("Paragraphs");
   vVarDoc.OleProcedure("Activate");
   vVarParagraphs.OleProcedure("Add");
   vVarParagraph=vVarParagraphs.OleFunction("Item", 1);
 
   vVarDoc.OlePropertyGet("PageSetup").OlePropertySet("Orientation",1);
 
   Variant v = vVarApp.OlePropertyGet("Selection");
 
   v.OleProcedure("Paste");
 
   vVarApp.OlePropertySet("Visible", true);
    delete gSS;
}

В инклюды добавляем

C++

1 2	#include <Clipbrd.hpp> #include <ComObj.hpp>

и объявляем

C++

1	Variant vVarApp, vVarDocs, vVarDoc, vVarParagraphs, vVarParagraph;

@nick42 Практикантроп 4838 / 2724 / 532 Регистрация: 23.09.2011 Сообщений: 5,789
	11.09.2024, 12:50	3
	Я сталкивался, но причина была чисто механическая (на материнке был выпаян реалтековский чип сети), и в диспетчере устройств висел принтер с "отсутствующими драйверами", хотя "Устройства и принтеры" показывали его как рабочий. Так что это явно не ваш случай... 0

@TrollHammer 1214 / 708 / 335 Регистрация: 22.02.2018 Сообщений: 2,085 Записей в блоге: 2
	12.09.2024, 13:59 [ТС]	4
	Короче, плюнул на танцы с бубном, используя работу с классом TPrinter (как ни странно, дома работает, как часы - конфиг ОС и принтеры те же), заморочился с OLE для формирования картинки в Word-е через ClipBoard (у заказчика сроки поджимают), допилю до нормального эстетического состояния (пока заказчика и черновая работа вывода на печать устраивает) и выложу. Может кому и пригодится. Не по теме: Плюнул тогда Кащей ядовитой слюной. Он поймал кенгуру, на жопе фломастером написал "Заиц", сунул ей в сумку утку и засунул в сундук. "Стероиды, иопть!" - ухмыльнулся старик и пошел спать. 0

	13.09.2024, 01:24

Опции темы