Вверх ↑
Этот топик читают: Гость
Ответов: 490
Рейтинг: 162
#1: 2021-06-27 10:54:16 ЛС | профиль | цитата
Всем привет. Проверьте пожалуйста пример у кого есть возможность на предмет печати в WIN 10 64 bit.
Пустой лист получается. На WIN 7 всё работает отлично.
Пример

Add(MainForm,2953706,56,63)
{
Width=802
Height=1200
Caption="Пример печать в WIN 10 64bit"
link(onCreate,4113207:doRefresh,[])
}
Add(Printer,11685074,126,147)
{
Title="VMT Print"
Point(doSettings)
Point(doPrintDlg)
link(onPrint,148957:doDraw,[])
}
Add(Img_Bmp,148957,196,147)
{
X=1
Y=1
DrawSource=2
link(Bitmap,11685074:Context,[(202,132)(175,132)(175,197)(132,197)])
link(SourceBitmap,3127673:Var1,[(209,124)])
}
Add(DocumentTemplate,2903461,259,147)
{
Name="otchet"
link(Bitmap,3127673:Var2,[])
}
BEGIN_SDK
Add(Print_Shape,7990833,91,42)
{
X=94
Y=45
Width=652
Height=1033
BackStyle=0
}
Add(Print_Shape,6111781,707,1039)
{
X=710
Y=1042
Width=36
Height=36
}
Add(Print_Shape,13737689,399,989)
{
X=402
Y=992
Width=36
Height=85
Type=5
}
Add(Print_Shape,9262945,91,973)
{
X=94
Y=976
Width=652
Type=4
}
Add(Print_Text,2920576,336,164)
{
Name="shmpvr"
X=339
Y=167
Width=400
Height=20
Font=[MS Sans Serif,10,1,0,1]
Horizontal=0
}
Add(Print_Text,2149039,336,185)
{
Name="Nprox"
X=339
Y=188
Width=162
Height=20
Font=[MS Sans Serif,10,1,0,1]
Horizontal=0
}
Add(Print_Text,3853555,707,1048)
{
X=710
Y=1051
Width=36
Height=18
Text="1/1"
}
Add(Print_Text,14381630,408,1055)
{
X=411
Y=1058
Width=113
Height=25
Text="Дата / подпись"
}
Add(Print_Text,2683260,105,1064)
{
X=108
Y=1067
}
Add(Print_Text,6188869,98,1055)
{
X=101
Y=1058
Width=78
Height=25
Text="Примечание"
}
Add(Print_Shape,5520405,105,1001)
{
X=108
Y=1004
Width=302
Type=4
FrameStyle=2
FrameColor=12632256
}
Add(Print_Shape,2524058,105,1029)
{
X=108
Y=1032
Width=302
Type=4
FrameStyle=2
FrameColor=12632256
}
Add(Print_Shape,13901432,427,1022)
{
X=430
Y=1025
Width=127
Type=4
FrameStyle=2
FrameColor=12632256
}
Add(Print_Text,5855781,336,207)
{
Name="KK"
X=339
Y=210
Width=400
Height=20
Font=[MS Sans Serif,8,1,0,1]
Horizontal=0
}
Add(Print_Text,4228019,469,931)
{
Name="Nprox1"
X=472
Y=934
Width=253
Height=20
Font=[MS Sans Serif,10,0,0,1]
Horizontal=0
}
Add(Print_Text,14385880,469,950)
{
Name="tip"
X=472
Y=953
Width=253
Height=20
Font=[MS Sans Serif,10,0,0,1]
Horizontal=0
}
Add(Print_Text,10743871,420,1018)
{
Name="ddd"
X=423
Y=1021
Width=204
Height=21
Font=[MS Sans Serif,10,0,0,1]
Horizontal=0
}
END_SDK
Add(PaintBox,4113207,259,77)
{
Width=780
Height=1105
Color=16777215
Name="pole"
link(onBeforeDraw,2903461:doDraw,[(306,83)(306,133)(247,133)(247,153)])
}
Add(GetDataEx,3127673,259,119)
{
link(Data,4113207:Bitmap,[])
}
Add(Button,8199473,63,161)
{
Left=5
Top=10
Caption="Печать"
link(onClick,11685074:doPrintDlg,[])
}


Редактировалось 1 раз(а), последний 2021-06-27 10:55:09
карма: 4

0
vip
#1.1контекстная реклама от партнеров
Ответов: 263
Рейтинг: 18
#2: 2021-06-27 13:49:34 ЛС | профиль | цитата
Нормально распечаталось

Win10 pro x64 HiAsm 186 2346
Принтер Samsung ML-1641

Редактировалось 1 раз(а), последний 2021-06-27 13:51:16
карма: 3

1
Голосовали:tig-rrr
Ответов: 490
Рейтинг: 162
#3: 2021-06-27 18:25:47 ЛС | профиль | цитата
fox-video Спасибо. Бум искать причину...
Что интересно в виртуальные принтеры тоже пустая страница получается и в Microsoft Print to PDF тоже.
C точек (Text) (RichEdit) печатается во всех изложенных вариантах выше ...
Может у кого есть какие мыслишки...

Редактировалось 2 раз(а), последний 2021-06-28 09:26:18
карма: 4

0
3
Сообщение
...
Прикрепленные файлы
(файлы не залиты)