Печать этикеток

@andevel · Регистрация: 19.07.2015

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

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

Т.е. нужно в редакторе составить шаблон этикетки. Далее на основе шаблона формировать необходимое количество этикеток по ширине и высоте, и отправлять это на печать.

Сейчас это сделано с помощью FastReport. Но есть один минус - конечный пользователь не может редактировать шаблон.

Был вариант сделать редактор на основе TWebBrowser. Но тут одна проблема, связанная с HTML - невозможно жестко задать границы этикетки.(растягивается при длинном тексте)

Еще задумка - рисовать на TImage. Но тут вопросы: Как изменять отрисованные элементы (таблицы, текст и тд) и как сохранить это все как текст(чтобы можно было хранить в БД, парсить, заменять переменные на данные и тд).

Возможно, у Вас есть подобный опыт. Буду очень признателен.

@droider · 11.09.2016, 13:03

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

как лучше распечать TPanel с нанесенными на нее компонентами

Например так

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
uses Printers; //подключаем модуль
//....
 
//процедура печати
procedure PrintPanel(const bmp: TBitmap);
var
ScaleX, ScaleY: integer;
WinRect: Trect;
begin
Printer.Orientation := poLandscape; //ориентация листа - альбомная
Printer.BeginDoc;
with Printer do
try
ScaleX := GetDeviceCaps(Handle, logPixelsX) div 96;
ScaleY := GetDeviceCaps(Handle, logPixelsY) div 96;
WinRect := Rect(0, 0, bmp.Width * ScaleX, bmp.Height * ScaleY);
Canvas.StretchDraw(WinRect, bmp);
finally
EndDoc;
if Printer.Aborted then
MessageDlg('Печать прервана!', mtInformation, [mbOK], 0);
end;
end;
 
 
procedure TForm1.Button2Click(Sender: TObject);
var
MyPanel: TBitmap;
DC: hDC;
begin
MyPanel := TBitmap.Create;
DC := GetDC(Panel1.Handle);
MyPanel.Width := Panel1.Width;
MyPanel.Height := Panel1.Height;
// получаем снимок
BitBlt(MyPanel.Canvas.Handle, 0, 0, MyPanel.Width, MyPanel.Height,
DC, 0, 0, SRCCOPY);
ReleaseDC(DC, Panel1.Handle);
PrintPanel(MyPanel); //выводим панель на печать
MyPanel.Free;
end;
end.

@andevel · 11.09.2016, 21:59 **[ТС]**

droider, Спасибо. Скоро пригодится. Пока вот что получается с редактром:

@andevel · 11.09.2016, 22:03 **[ТС]**

Вопрос возник. например у Label установлен стиль текста fsBold,fsItalic. [B]Так вот, как при нажатии на кнопку проверить присутствует ли свойство fsBold ? и если да то Label1.font.style := Label1.font.style - fsBold, а в другом случае прибавить.

@krapotkin · 12.09.2016, 00:02

result := fsBold in label.font.style;

@andevel · 12.09.2016, 12:03 **[ТС]**

Еще одна проблемка появилась: При рисовании(делаю засечки на TImage) линейки (верт . и горизонт.) получается, что при моем разрешении экрана у меня в 1мм = 3.73 px.
Если округлить до 4х или до 3х, то выходит слишком большая погрешность. Что тут можно предпринять?

@krapotkin · 12.09.2016, 16:59

техника 2x или 4x anti-aliasing
все рисуется на битмапе в 2 или в 4 раза больше нужного, а потом большой битмап копируется в малый. при этом сглаживание происходит автоматически

@andevel · 12.09.2016, 21:06 **[ТС]**

krapotkin, Спасибо. Идею понял.

Новые блоги и статьи Все статьи Все блоги /
тв 16 бой ии anaschu 27.07.2026 Великий Перелом ИИ: Как уравнения ОДУ Radau дожали цензурные фильтры Алисы Фиксируем в мемофонде Теории Всего беспрецедентный факт в истории ИИ-зондирования. В затяжном многораундовом. . .	мв 15. непроверенное, возможно, глюк anaschu 27.07.2026 НАУЧНО-АНАЛИТИЧЕСКИЙ ОТЧЕТ. РАЗДЕЛ 1. 1: «НАУКА» (РАСШИРЕННАЯ СТЕХИОМЕТРИЧЕСКАЯ И ГЕНЕТИЧЕСКАЯ ВЕРСИЯ)Тема: Теоретическое обоснование инвариантности 19-мерного тензорного ядра непрерывных ОДУ и. . .	Очистка реквизитов и табличных частей документа при копировании Maks 26.07.2026 Алгоритм из решения ниже разработан на примере нетипового документа "ЗаявкаНаРаботу", разработанного в КА2. Задача: Заменить алгоритм запрета копирования документов для сотрудников с ролью "Стажер",. . .	Доктрина интенционального знания - Доктрина для портала "Срез". Hrethgir 25.07.2026 Может найдётся кто захочет оценить доктрину. . . Написания правил участия для меня роскошь, требующая лимита времени, поэтому все сообщения не прошедшие модерацию будут видны только участникам портала,. . .
сукцессия 44. Решил подать на припринт в межународные сервисы препринтов. Но нужно одобрение от ученых anaschu 25.07.2026 Английский вариант. Пока кто то не одобрит мою личность, мне не получиться это опубликовать на препринте. Но заявку на публикацию статьи я сегодня подам.	сукцессия 43. Вторая научная статья за месяц- прайминг и гатгил anaschu 25.07.2026 две стороны одной монеты	Более приземисто - Эстафету хвоста в .cdl (деревья эстафеты в сад). Hrethgir 25.07.2026 В будущем, после написания блока инверсии обхода дерева (эстафеты хвоста), я планирую вернуться к нашему прошлому разговору о том, обладают ли знания целеполаганием. Тогда я пришел к выводу, что. . .	Вот представьте что вам дали бессмертие. kumehtar 24.07.2026 Вот представьте что вам дали бессмертие, ничего более не меняя. Вообще ничего, только бессмертие в нынешнем виде. Рады были бы? Что бы вы тут делали всё это время? Никакой пенсии. Никакого нового. . .

@andevel 4 / 4 / 0 Регистрация: 19.07.2015 Сообщений: 96

	Печать этикеток 09.09.2016, 00:22. Показов 6154. Ответов 26 Метки нет (Все метки) Добрый день. Подскажите пожалуйста, с помощью каких компонент и как можно было бы организовать редактор шаблонов этикеток для товаров с последующей печатью. Т.е. нужно в редакторе составить шаблон этикетки. Далее на основе шаблона формировать необходимое количество этикеток по ширине и высоте, и отправлять это на печать. Сейчас это сделано с помощью FastReport. Но есть один минус - конечный пользователь не может редактировать шаблон. Был вариант сделать редактор на основе TWebBrowser. Но тут одна проблема, связанная с HTML - невозможно жестко задать границы этикетки.(растягивается при длинном тексте) Еще задумка - рисовать на TImage. Но тут вопросы: Как изменять отрисованные элементы (таблицы, текст и тд) и как сохранить это все как текст(чтобы можно было хранить в БД, парсить, заменять переменные на данные и тд). Возможно, у Вас есть подобный опыт. Буду очень признателен. 0

@andevel 4 / 4 / 0 Регистрация: 19.07.2015 Сообщений: 96
	11.09.2016, 21:59 [ТС]
	droider, Спасибо. Скоро пригодится. Пока вот что получается с редактром: Миниатюры 0

@andevel 4 / 4 / 0 Регистрация: 19.07.2015 Сообщений: 96
	11.09.2016, 22:03 [ТС]
	Вопрос возник. например у Label установлен стиль текста fsBold,fsItalic. [B]Так вот, как при нажатии на кнопку проверить присутствует ли свойство fsBold ? и если да то Label1.font.style := Label1.font.style - fsBold, а в другом случае прибавить. 0

@krapotkin 6854 / 4680 / 1465 Регистрация: 14.04.2014 Сообщений: 20,681 Записей в блоге: 21
	12.09.2016, 00:02
	result := fsBold in label.font.style; 1

@andevel 4 / 4 / 0 Регистрация: 19.07.2015 Сообщений: 96
	12.09.2016, 12:03 [ТС]
	Еще одна проблемка появилась: При рисовании(делаю засечки на TImage) линейки (верт . и горизонт.) получается, что при моем разрешении экрана у меня в 1мм = 3.73 px. Если округлить до 4х или до 3х, то выходит слишком большая погрешность. Что тут можно предпринять? 0

@krapotkin 6854 / 4680 / 1465 Регистрация: 14.04.2014 Сообщений: 20,681 Записей в блоге: 21
	12.09.2016, 16:59
	техника 2x или 4x anti-aliasing все рисуется на битмапе в 2 или в 4 раза больше нужного, а потом большой битмап копируется в малый. при этом сглаживание происходит автоматически 1

@andevel 4 / 4 / 0 Регистрация: 19.07.2015 Сообщений: 96
	12.09.2016, 21:06 [ТС]
	krapotkin, Спасибо. Идею понял. 0