powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Перевести с фокса
4 сообщений из 4, страница 1 из 1
Перевести с фокса
    #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
Перевести с фокса
    #33895136
Sergey Ch
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
не_знаю_foxпож-ста, переведите на VB
Убиваете приложение на FoxPro?
...
Рейтинг: 0 / 0
Перевести с фокса
    #33895143
не_знаю_fox
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
пример дали на фохе, надо написать на VB
...
Рейтинг: 0 / 0
Перевести с фокса
    #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
4 сообщений из 4, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Перевести с фокса
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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