Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Перевести с фокса / 4 сообщений из 4, страница 1 из 1
02.08.2006, 16:10
    #33895126
не_знаю_fox
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Перевести с фокса
пож-ста, переведите на VB

Код: plaintext
1.
2.
3.
IF FILE('txt1.txt')
	DECLARE PrintFileSpooler IN psprin.DLL STRING,STRING
    PrintFileSpooler("K2",'txt1.txt')
ENDIF
...
Рейтинг: 0 / 0
02.08.2006, 16:12
    #33895136
Sergey Ch
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Перевести с фокса
не_знаю_foxпож-ста, переведите на VB
Убиваете приложение на FoxPro?
...
Рейтинг: 0 / 0
02.08.2006, 16:15
    #33895143
не_знаю_fox
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Перевести с фокса
пример дали на фохе, надо написать на VB
...
Рейтинг: 0 / 0
02.08.2006, 18:16
    #33895556
HandKot
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Перевести с фокса
наверное так

Код: plaintext
1.
2.
3.
4.
Public Declare Sub PrintFileSpooler Lib "psprin.dll" Alias "PrintFileSpooler" (ByVal arg1 As String, ByVal arg2 As String)

If Dir("txt1.txt") <> "" Then
  PrintFileSpooler("K2","txt1.txt")
EndIF

надо уточнить декларацию процедуры PrintFileSpooler
...
Рейтинг: 0 / 0
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Перевести с фокса / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]