Rambler's Top100
Форум: MS ACCESSVBVBA MS OfficeMS SQL server
Новые сообщения: 0000

Форум: MS ACCESS

Вопросы связанные с MS ACCESS

Обновить визитку
Участники «Online»
Все участники

 
 

Доброго времени суток, Посетитель!

вид форума:
Линейный форум Структурный форум

тема: Выгрузка в ***.rtf файл
 
 автор: час   (12.03.2008 в 14:25)   личное сообщение
 
 

подскажите пожалуйста - как при выгрузке менять шрифт?

  Ответить  
 
 автор: час   (12.03.2008 в 14:28)   личное сообщение
 
 

И ещё как корректно завершить этот код,
в смысле работу с *.RTF файлом?

  Ответить  
 
 автор: час   (12.03.2008 в 14:36)   личное сообщение
 
 



Public Sub IMPORT()
Dim i As Integer
Dim fs, f
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.CreateTextFile("C:\VERSII\" & ndir & "\" & nfil & ".rtf", True)
For i = 1 To 40
f.writeline (" ")
Next i
'f.FontSize = 12
f.writeline ("                                   " & пппу)
f.writeline ("                                   " & ппсп)
f.writeline ("                                   " & ппфп)
f.writeline ("                                   " & ппдо)
End Sub

  Ответить  
 
 автор: ДрЮня   (12.03.2008 в 15:17)   личное сообщение
 
 

завершить просто
f.Close
и для чистоты
set fs=nothing
set f =nothing

а вот насчет форматирования - сомневаюсь, что это возможно
команда
fs.CreateTextFile
создает файл формата plain-text.
хотя возможно, что и возможно.

  Ответить  
 
 автор: час   (12.03.2008 в 15:57)   личное сообщение
 
 

Спасибо!!

  Ответить  
 
 автор: час   (13.03.2008 в 09:30)   личное сообщение
 
 

подскажите пожалуйста - как при выгрузке менять шрифт?

  Ответить  
 
 автор: час   (14.03.2008 в 10:16)   личное сообщение
 
 

подскажите пожалуйста - как при выгрузке менять шрифт?

  Ответить  
 
 автор: ДрЮня   (14.03.2008 в 11:24)   личное сообщение
 
 

создавайте ворд-документ

  Ответить  
 
 автор: час   (14.03.2008 в 12:16)   личное сообщение
 
 

У нас нет MS Office -дорого.... .....
а WordPad стоит... .....

  Ответить  
 
 автор: час   (15.03.2008 в 09:55)   личное сообщение
 
 

Видимо можно как-то ещё при создании файла задать ему размер шрифта.
object.CreateTextFile(filename[, overwrite[, unicode]])

  Ответить  
 
 автор: ДрЮня   (15.03.2008 в 11:40)   личное сообщение
 
 

точно не знаю, но вроде там только примитивные функции
записать строку;
прочитать строку;
позиционироваться
и проч.
о форматировании ничего сказать не могу.

  Ответить  
 
 автор: час   (16.03.2008 в 10:35)   личное сообщение
 
 

Спасибо!
А как Вы думаете может где почитать можно?
Не могли бы Вы что нить посоветовать?
Пока никто не сказал что нельзя этого сделать теплится надежда.

  Ответить  
 
 автор: час   (17.03.2008 в 10:15)   личное сообщение
 
 

Подскажите кто нибудьуже надосдавать прогу, а шрифт мелкий.... ........

  Ответить  
 
 автор: osmor   (17.03.2008 в 18:46)   личное сообщение
 
 

http://www.codenet.ru/progr/formt/rtf1.php

  Ответить  
 
 автор: час   (18.03.2008 в 07:56)   личное сообщение
 
 

Спасибо, Олег, пойду посмотрю.
Посмотрел
Извините за бестолковость, а куда команды эти "запихивать"?
Команда для создания группы шрифтов может состоять из таких операторов:

{\fonttbl\f0\fnil default;}
{\fl\froman roman h;}
{\f2\fswiss helvetica;}

  Ответить  
 
 автор: Bellerofont   (17.03.2008 в 11:05)   личное сообщение
 
 

>Видимо можно как-то ещё при создании файла задать ему размер
>шрифта.

Нет. Нельзя для обычного текстового файла задать в нем же размер шрифта.

Вы можете использовать RichTextBox для форматирования текста, а потом значение свойства rtf записывать в файл.

  Ответить  
 
 автор: час   (18.03.2008 в 07:55)   личное сообщение
 
 

Спасибо большое!
А где почитать о том что Вы сказали?
Или с чего начать , что бы понять?

  Ответить  
HiProg.com - Технологии программирования
Rambler's Top100 TopList