Вверх ↑
Этот топик читают: Гость
Ответов: 20
Рейтинг: 0
#1: 2013-06-21 14:37:16 ЛС | профиль | цитата
Подскажите пожалуйста, как содержимое таблицы строк скинуть на принтер.code_31305.txt
карма: 1

0
файлы: 1code_31305.txt [713B] [103]
Гость
Ответов: 17029
Рейтинг: 0
#2: 2013-06-21 15:57:15 правка | ЛС | профиль | цитата


Редактировалось 1 раз(а), последний 2017-03-05 13:11:01
карма: 0

0
Ответов: 16884
Рейтинг: 1239
#3: 2013-06-21 15:57:50 ЛС | профиль | цитата
Выше я.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 20
Рейтинг: 0
#4: 2013-06-22 05:29:31 ЛС | профиль | цитата
Что-то вообще не в ту сторону, или я чего-то не понимаю. Вопрос в том, чтобы скинуть на принтер содержимое таблицы строк.
карма: 1

0
Ответов: 16884
Рейтинг: 1239
#5: 2013-06-22 10:51:46 ЛС | профиль | цитата
yakov65 писал(а):
Вопрос в том, чтобы скинуть на принтер содержимое таблицы строк.
В каком виде ?
В виде таблицы (что и было выложено выше)
или в том виде, в котором строки хранятся в StringTable ?

Да, к стати, а StringTable как заполнять будешь ?


карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Разработчик
Ответов: 26155
Рейтинг: 2127
#6: 2013-06-22 10:55:00 ЛС | профиль | цитата
yakov65 писал(а):
Вопрос в том, чтобы скинуть на принтер содержимое таблицы строк

Обычный StringTable не поддерживает вывод таблица на принтер, можно вывести только ее текст, но никаких ячеек не будет. Расширенная таблица MTStrTbl имеет конструктор таблицы HTML, с помощью которого можно построить таблицу с ячейками и вывести ее в браузер, который имеет функционал печати страниц. Пример показывает работу конструктора таблицы HTML. Надеюсь, понятно объяснил
карма: 22

0
Ответов: 20
Рейтинг: 0
#7: 2013-06-22 14:30:12 ЛС | профиль | цитата
Как все сложно то. В таблицу данные поступают с файлов .txt, с нескольких. При выборе нужного файла, его можно редактировать в таблице строк, ну и если есть необходимость, то чтобы все эти изменения можно было скинуть на принтер.
------------ Дoбавленo в 14.30:
Примерно вот так:

Add(MainForm,2953706,238,133)
{
}
Add(StringTable,4436019,441,224)
{
Left=590
Top=30
Width=980
Height=770
Font=[MS Sans Serif,12,0,0,1]
WinStyle=3
Columns=#7:Пара=55|14:Провод=80 |21:Наименование=220 |26:Кросс.данные(исх)=300 |24:Кросс.данные(вх)=300 |0:|
Grid=0
SaveWidth=0
StaticColumn=0
Point(Index)
Point(FileName)
Point(doInsert)
link(FileName,4480112:Var,[(454,212)(408,212)(408,247)(363,247)])
}
Add(Edit,1068883,350,112)
{
Left=335
Top=100
Visible=1
Text="1.txt"
}
Add(GetIndexData,4480112,357,203)
{
Count=6
link(Data1,1068883:Text,[(363,173)(356,173)])
link(Data2,15390012:Text,[(370,173)(398,173)])
link(Data3,14294117:Text,[(377,173)(447,173)])
link(Data4,5221467:Text,[(384,173)(489,173)])
link(Data5,9539119:Text,[(391,173)(538,173)])
link(Data6,1270119:Text,[(398,173)(587,173)])
}
Add(Hub,15990060,259,266)
{
InCount=6
link(onEvent1,4480112:doIndex,[(315,272)(315,209)])
link(onEvent2,4436019:doLoad,[(357,279)(357,251)])
}
Add(Edit,15390012,392,112)
{
Left=335
Top=140
Visible=1
Text="2.txt"
}
Add(Button,11528340,392,294)
{
Left=155
Top=415
Width=110
Height=30
Font=[MS Sans Serif,10,0,0,1]
Caption="Сохранить"
link(onClick,4436019:doSave,[(432,300)(432,258)])
}
Add(Button,7797554,175,231)
{
Left=100
Top=90
Height=120
Ctl3D=0
WinStyle=1
Caption="1-25"
link(onClick,15990060:doEvent1,[(233,237)(233,272)])
}
Add(Button,16450415,175,404)
{
Left=255
Top=90
Height=120
Ctl3D=0
WinStyle=1
Caption="101-125"
Data=Integer(4)
link(onClick,15990060:doEvent5,[(230,410)(230,300)])
}
Add(Button,12490639,177,359)
{
Left=180
Top=230
Height=120
Ctl3D=0
WinStyle=1
Caption="76-100"
Data=Integer(3)
link(onClick,15990060:doEvent4,[(230,365)(230,293)])
}
Add(Button,13629386,175,451)
{
Left=255
Top=230
Height=120
Ctl3D=0
WinStyle=1
Caption="126-150"
Data=Integer(5)
link(onClick,15990060:doEvent6,[(230,457)(230,307)])
}
Add(Edit,14294117,441,112)
{
Left=335
Top=180
Visible=1
Text="3.txt"
}
Add(Edit,5221467,483,112)
{
Left=335
Top=240
Visible=1
Text="4.txt"
}
Add(Edit,9539119,532,112)
{
Left=335
Top=280
Visible=1
Text="5.txt"
}
Add(Edit,1270119,581,112)
{
Left=335
Top=320
Visible=1
Text="6.txt"
}
Add(Button,9184128,175,273)
{
Left=100
Top=230
Height=120
Caption="26-50"
Data=Integer(1)
link(onClick,15990060:doEvent2,[])
}
Add(Button,5911451,175,315)
{
Left=180
Top=90
Height=120
Caption="51-75"
Data=Integer(2)
link(onClick,15990060:doEvent3,[(233,321)(233,286)])
}
Add(Printer,4912851,504,294)
{
Point(doSettings)
Point(doPrintDlg)
link(Text,4436019:Select,[(510,282)(454,282)])
}
Add(Button,11391630,448,294)
{
Left=155
Top=460
Width=110
Height=30
Font=[MS Sans Serif,10,0,0,1]
Caption="Печать"
link(onClick,4912851:doPrint,[])
}


карма: 1

0
Ответов: 16884
Рейтинг: 1239
#8: 2013-06-22 15:05:30 ЛС | профиль | цитата
yakov65 писал(а):
Примерно вот так:
Тогда примерно вот так:
code_31316.txt
Хотя ответа на свой вопрос:
Tad писал(а):
В каком виде ?
В виде таблицы (что и было выложено выше)
или в том виде, в котором строки хранятся в StringTable ?
я не получил.

карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
файлы: 1code_31316.txt [3.1KB] [135]
Ответов: 8926
Рейтинг: 823
#9: 2013-06-22 15:05:52 ЛС | профиль | цитата
yakov65, судя по приложенной схеме наименование и количество колонок в таблице не меняется?
Если да, то можно сделать заготовку таблицы в Excel с макросом для печати, а заполнять и отправлять на печать в HiAsm-кой программе.
карма: 19

0
Ответов: 16884
Рейтинг: 1239
#10: 2013-06-22 15:10:05 ЛС | профиль | цитата
yakov65 писал(а):
ну и если есть необходимость, то чтобы все эти изменения можно было скинуть на принтер.
З А Ч Е М ? Что ты с этим нагромождением строк с разделителями будешь делать?
Просто интересно.
------------ Дoбавленo в 15.10:
Леонид, постановка задачи с "скинуть на принтер" вообще не понятна.
Как вывести на принтер в удобочитаемом формате (без Excel) я показал во втором посте, а nesco разъяснил почему так.
Для того что-бы печатать в Excel - нужно иметь Excel. К сожалению он не идет в комплекте с Windows.
Но если есть Excel, то
Леонид писал(а):
заполнять и отправлять на печать в HiAsm-кой программе.
лишний геморрой.
ИМХО

карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 20
Рейтинг: 0
#11: 2013-06-22 15:35:24 ЛС | профиль | цитата
Спасибо, попробую.
карма: 1

0
Ответов: 16884
Рейтинг: 1239
#12: 2013-06-23 11:54:43 ЛС | профиль | цитата
yakov65, не знаю, как Леонид, а я бы решил так (если я правильно понял задачу ):
yakov65.rar
Компилятор DELPHI или FPC
Браузер любой установленый.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
файлы: 1yakov65.rar [1.9KB] [85]
Ответов: 9906
Рейтинг: 351
#13: 2013-06-23 12:37:21 ЛС | профиль | цитата
Чего-то я упустил, видимо...

Зачем-то же nesco приклеивал точку Context к принтеру
Мы чего, так и не научились делать WM_PRINT контрола на любой контекст?
карма: 9

0
Ответов: 16884
Рейтинг: 1239
#14: 2013-06-23 12:45:52 ЛС | профиль | цитата
Есть ещё DocumentTemplate

По выражению ТС "скинуть на принтер", есть ещё море способов.
Я привел способ печати через установленый в системе браузер.
Леонид, предложил использовать Excel (не всегда имеющийся).

Кто хочет через Context - флаг в руки.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 9906
Рейтинг: 351
#15: 2013-06-23 12:48:38 ЛС | профиль | цитата
Tad, это был вопрос, чего из трусов то выпрыгиваешь
карма: 9

1
Голосовали:Tad
Сообщение
...
Прикрепленные файлы
(файлы не залиты)