Печать с сохранением переносов

@silvalena · Регистрация: 20.03.2015

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

Здравствуйте.
Мне надо пустить содержимое TRichEdit на узкий с бумагой 8 мм принтер чеков.
У TRichEdit установлено ssVertical и WordWrap=true. Ширина TRichEdit установлена узкой.
Вот пример того, что вижу в TRichEdit:

Стол №1
26.01.18 15:12:42
Десерт Crostata di Frutta ... 1x70=70
Пряная индюшиная грудка с карамелизированой тыквой
или персиком ... 1x190=190
ИТОГО: 260

Печать:

C++

//sText это std::unique_ptr<TStringList> 
                
//далее в коде печать того, что в RichEdit1
 FormPrint->RichEdit1->Lines->AddStrings(sText.get());
 
          int count = sText->Count;
          if (count == 0)
               return;
 
          FormPrint->RichEdit1->Print("");

На печати пропадают переносы и строка превращается в длинную, вот так на листе бумаги:

Пряная индюшиная грудка с карамелизированой тыквой или персиком ... 1x190=190

Таким образом не удается напечатать текст так как он выглядит в TRichEdit т.е. с сохранением всех переносов строк. И в результате текст выходит за края бумаги узкого принтера.
Если использовать Memo то все нормально.
Подскажите, пожалуйста, как это исправить для TRichEdit?

@+1 · 26.01.2018, 17:34

По-моему, это надо смотреть в настройках принтера.
Ширина бумаги какая?

@Avazart · 26.01.2018, 17:34

Не знаю в чем причина, но решить можно попробовать так - печатать Canvas от RichEdit, а не через сам компонент.

@silvalena · 27.01.2018, 11:14 **[ТС]**

Вроде получилось, с использованием громоздкой конструкции цикла, все переносы строк сохраняются:

C++

//FormPrint->RichEdit1->Lines->AddStrings(sText.get());<-заменить на цикл
 
          FormPrint->RichEdit1->Lines->Clear();
          for(int i = 0; i < sText->Count; i++)
           {
            FormPrint->RichEdit1->Lines->Text =
            FormPrint->RichEdit1->Lines->Text + sText->Strings[i];
           }
          FormPrint->RichEdit1->Print(L"Печать чека");

@Avazart · 27.01.2018, 13:14

Используйте TPrinter и TControlCanvas, не нужно изобретать костыли.

@silvalena · 27.01.2018, 13:38 **[ТС]**

TPrinter периодически на разных принтерах вызывал AV. То печатал то AV. Никакой надежности. Причину выяснить не удалось.

C++

std::unique_ptr<TPrinter> Prntr(new TPrinter);
           Prntr->BeginDoc();
           try
           {
              //Prntr->Canvas->Font->Size = 11;
              for (int i = 0; i < FormPrint->Memo1->Lines->Count; i++)
                {
                 Prntr->Canvas->TextOut(
                  1,
                  1 + (i * Prntr->Canvas->TextHeight(FormPrint->Memo1->Lines->Strings[i])),
                  FormPrint->Memo1->Lines->Strings[i]);
                }
 
              Prntr->Canvas->Brush->Color = clBlack;
           }
           __finally
             {
              Prntr->EndDoc();
             }

@Avazart · 27.01.2018, 18:27

Как то так:

C++

1	#include <memory>

C++

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    std::auto_ptr<TControlCanvas>
             ControlCanvas(new TControlCanvas);
 
    ControlCanvas->Control= RichEdit1;
 
    PrintDialog1->Options.Clear();
    if (PrintDialog1->Execute())
    {
        Printer()->BeginDoc();
        Printer()->Canvas->CopyRect
                 (
                     TRect(0, 0, Printer()->PageWidth-1, Printer()->PageHeight-1),
                     ControlCanvas.get(),
                     TRect(0, 0, Printer()->PageWidth-1, Printer()->PageHeight-1),
                 );
        Printer()->EndDoc();
    }
}

Добавлено через 4 часа 34 минуты
silvalena, Помогло?

@silvalena · 08.02.2018, 11:54 **[ТС]**

silvalena, Помогло?

Я два дня тестировала на специальный узкий 8 мм принтер печати чеков со своим кодом. Вроде все работало, вашего кода у меня тогда еще не было. Потом у меня принтер забрали. Как только он появиться я буду пробовать ваш код. Спасибо.

@Avazart · 08.02.2018, 19:27

Ок, если не сложно отпишите о результатах.

@+1 345 / 178 / 53 Регистрация: 24.08.2010 Сообщений: 1,028
	26.01.2018, 17:34	2
	По-моему, это надо смотреть в настройках принтера. Ширина бумаги какая? 0

@Avazart 8385 / 6147 / 615 Регистрация: 10.12.2010 Сообщений: 28,683 Записей в блоге: 30
	26.01.2018, 17:34	3
	Не знаю в чем причина, но решить можно попробовать так - печатать Canvas от RichEdit, а не через сам компонент. 0

@Avazart 8385 / 6147 / 615 Регистрация: 10.12.2010 Сообщений: 28,683 Записей в блоге: 30
	27.01.2018, 13:14	5
	Используйте TPrinter и TControlCanvas, не нужно изобретать костыли. 0

@silvalena 4 / 4 / 4 Регистрация: 20.03.2015 Сообщений: 147
	08.02.2018, 11:54 [ТС]	8
	silvalena, Помогло? Я два дня тестировала на специальный узкий 8 мм принтер печати чеков со своим кодом. Вроде все работало, вашего кода у меня тогда еще не было. Потом у меня принтер забрали. Как только он появиться я буду пробовать ваш код. Спасибо. 0

@Avazart 8385 / 6147 / 615 Регистрация: 10.12.2010 Сообщений: 28,683 Записей в блоге: 30
	08.02.2018, 19:27	9
	Ок, если не сложно отпишите о результатах. 0