Вверх ↑
Этот топик читают: Гость
Ответов: 522
Рейтинг: 167
#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
Ответов: 264
Рейтинг: 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
Ответов: 522
Рейтинг: 167
#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
Сообщение
...
Прикрепленные файлы
(файлы не залиты)