3
« : 06 Декабрь 2010, 06:49:34 »
Здравствуйте! Подскажите пожалуйста, в какую сторону смотреть.
на форме в базе данных Lotus, есть кнопка, при нажатии на которую, печатается штрих-код с номером документа. Вот код, который привязан к кнопке:
Sub Click(Source As Button)
Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc_profile As NotesDocument
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set db=session.CurrentDatabase
Set uidoc=ws.CurrentDocument
Set doc_profile=db.GetProfileDocument("ProfileDB")
If doc_profile Is Nothing Then
Messagebox {Нет настроек для БД }+db.Title+{ !
Обратитесь к администратору.},16,{Стоп!}
Continue=False
Exit Sub
End If
prname$=Trim(doc_profile.SPrinter(0))
org$=Trim(doc_profile.SOrg(0))
If prname$="" Then
Messagebox {Не настроен штрих-принтер!
Обратитесь к администратору.},16,{Стоп!}
Continue=False
Exit Sub
End If
If org$="" Then
Messagebox {Не настроена организация для штрих-принтера!
Обратитесь к администратору.},16,{Стоп!}
Continue=False
Exit Sub
End If
Set bzb=createobject("LabelPrint.LabelImage")
count% = Cint(Inputbox$("Укажите количество копий штрих-кодов", "Сколько копий?",1))
num$=uidoc.FieldGetText("Num")
Call bzb.DrawText(4,2,org$,"ARIAL",15,"",204,0)
Call bzb.DrawBarCode(2,5,30,12,0,4,num$,1,0,"ARIAL",1,"",204)
org$="Исх-"+uidoc.FieldGetText("NumShow")+"-"+uidoc.FieldGetText("RegDate")
Call bzb.DrawText(4,13,org$,"ARIAL",15,"",204,0)
Select Case prname$
Case ""
Messagebox "Не настроен штрих-принтер",16,"Стоп!"
Case "local"
Call bzb.EZPrintLabel(count%,"PORT",1)
Case Else
Call bzb.EZPrintLabel(count%,"RAW",prname$)
End Select
End Sub
Приобрели новый принтер, печать этикеток не идет, пробная страница печатается нормально. Новый принтер Zebra TLP2844, вместо EZ-2.
Буду рад за любую помощь.
Заранее спасибо.
Просмотр сообщений