Visual Basic :: Display Header/Footer In Rich Text Box Control

How To Get The Font Name And Font Size Of Header/footer Text?
Hi Everybody

Simple question.

In one of my procedures, I write the VBA Excel code set the text for headers and footer specifying the font name and font size (code line shown below in part).

Code:
'...
'...
'worksheetName has been previously defined to contain the
'name of the worksheet being handled
fullFilename = ActiveWorkbook.FullName
footerText = fullFilename & "[" & worksheetName & "]"
With ActiveSheet.PageSetup
.LeftFooter = "&""Times New Roman,Regular""&06" & footerText
End With
'...
'...

However, when I try to read the same (header/footer text) using code and assign it to a string variable, it actually includes the VBA code referring to the font name and font size as well. This is what I get (the contents of the string variable is shown below).

&"Times New Roman,Regular"&06H:MSOFFICEMY DOCUMENTSCombined National Monthly ReportTest11.xls[SBU - East]

Have a look at all the text prior to "H:..."

But when you see the header/footer content in pagesetup -> headers/footers, you only see the actual text viz :-

"H:MSOFFICEMY DOCUMENTSCombined National Monthly ReportTest11.xls[SBU - East]"

Is there a way to read this actual text only in to a string variable?

Best regards

Deepak Agarwal

Footer And Header
Hi

How to set the header tow lines

first line the format will be to the left

Seconde line the format will be center

For the footer i found this code but i want to add line before the page no

Code:
Dim oWord As Word.Application
Dim oDoc As Word.Document
Dim oFooter As Range
Dim oRange As Range
Dim oEntry As AutoTextEntry

Set oWord = New Word.Application
oWord.Visible = True

Set oDoc = oWord.Documents.Add

Set oFooter = oDoc.Sections(1).Footers(wdHeaderFooterPrimary).Range
Set oEntry = NormalTemplate.AutoTextEntries("Page X of Y")

Set oRange = oEntry.Insert(oFooter)
oRange.ParagraphFormat.Alignment = wdAlignParagraphCenter

oDoc.Close False
oWord.Quit False

.doc To .rtf With Header/Footer
Hi

I want to create an .rtf file from .doc file and .rtf file should contain header/footer from .doc file.

Here is the code i am using:

Project >> References >> Microsoft Word 9.0 Object Library

VB Code:
Option Explicit Private Sub Command1_Click()Const FORMAT_RTF = 6Const FORMAT_TEXT = 2Const NO_PROMPT = 2Const OPEN_FORMAT_AUTO = 0 Dim word_server As Word.ApplicationDim in_file As StringDim in_path As StringDim out_file As StringDim out_path As StringDim pos As IntegerDim file_format As Integer Screen.MousePointer = vbHourglass DoEvents On Error GoTo OpenError Set word_server = CreateObject("Word.Application") On Error GoTo 0 in_file = txtInputFile.Text pos = InStrRev(in_file, "") in_path = Left$(in_file, pos) in_file = Mid$(in_file, pos + 1) out_file = txtOutputFile.Text pos = InStrRev(out_file, "") out_path = Left$(out_file, pos) out_file = Mid$(out_file, pos + 1) pos = InStrRev(out_file, ".") Select Case LCase$(Mid$(out_file, pos + 1)) Case "txt" file_format = FORMAT_TEXT Case "rtf" file_format = FORMAT_RTF Case Else MsgBox "Unknown file extension" Exit Sub End Select ' Move to the input directory. word_server.ChangeFileOpenDirectory in_path ' Open the input file. word_server.Documents.Open _ FileName:=in_file, _ ConfirmConversions:=False, _ ReadOnly:=False, _ AddToRecentFiles:=False, _ PasswordDocument:="", _ PasswordTemplate:="", _ Revert:=False, _ WritePasswordDocument:="", _ WritePasswordTemplate:="", _ Format:=OPEN_FORMAT_AUTO ' Move to the output directory. word_server.ChangeFileOpenDirectory out_path ' Save the output file. word_server.ActiveDocument.SaveAs _ FileName:=out_file, _ FileFormat:=file_format, _ LockComments:=False, _ Password:="", _ AddToRecentFiles:=True, _ WritePassword:="", _ ReadOnlyRecommended:=False, _ EmbedTrueTypeFonts:=False, _ SaveNativePictureFormat:=False, _ SaveFormsData:=False, _ SaveAsAOCELetter:=False ' Exit the server without prompting. word_server.ActiveDocument.Close False Screen.MousePointer = vbDefault MsgBox "Ok" Exit Sub OpenError: MsgBox "Error" & Str$(Error.Number) & _ " opening Word." & vbCrLf & _ Error.Description Screen.MousePointer = vbDefaultEnd Sub Private Sub Form_Load()Dim file_path As String file_path = App.Path If Right$(file_path, 1) <> "" Then file_path = file_path & "" txtInputFile.Text = file_path & "test.doc" txtOutputFile.Text = file_path & "test.rtf"End Sub

Header/ Footer
This should be an Easy One...

What is the sequence to open the Header/footer View in a document with VBA?

Me.xxxxx.xxxx.xxxx???

Header/Footer Eraser
Hi All,
Does somebody know of a macro that can remove all the headers and footers ina ll the pages of a word document.
Thanks in advance,
Lonely

Writeprotect The Header Row And Footer Row
Hi,

My header rows is from row 1-4 and footer is last row with end. How can I prevent any kind of action from altering these rows.ie row swapping or pasting.. Will appreciate any help.

Thanks

How To Get Header Footer Font
Dears

How can I get the font name of header/footer data in excel.

Thanks
Atif

Custom Header & Footer
With reference to http://support.microsoft.com/default...N-US%3Bq267240

How do i achieve that in VB
i have started with this, kindly advice any mistake:
Private Type SAFEARRAYBOUND
cElements As Long
lLbound As Long
End Type

Private Type SAFEARRAY
cDims As Integer
fFeatures As Integer
cbElements As Double
clocks As Double
pvData As Long
rgsabound(1) As SAFEARRAYBOUND
End Type

but in it also have function such as safearraycreate, but i tried searching in API view without successful.
Thanks for any help.

Footer And Header Disappeared
Hi,
I tried to set up bookmarks in Word header in MS word97, then pass values through VBA in Access 97. I save as the word doc, then I send Email and add this word doc as an attachment. However, when I open the attachment, I do not have footer and header, when I do "print preview", it shows up without images in footer and header. I do not know why?
1, Why I lost images in the header?
2, Why when I open the attachment in email, footer and header does not show. When I do view>footer and header, footer and header become editable, when close it, it disappear again. I can not view document with footer and header on it. Why???

Here is the code.
VB Code:
Set objWord = CreateObject("Word.Application") With objWord 'Make the application visible .Visible = True 'Open the document .Documents.Open ("I:PROPSTEMPPostProcessor-QAFORM.doc") .ActiveDocument.Bookmarks("WONumber").Select .Selection.Text = rsKey.Fields("WONumber") 'Move to each bookmark and insert text from the form .ActiveDocument.Bookmarks("ContactName").Select .Selection.Text = (CStr([Forms]![CustomerInfo]![Contact subform].[Form]![FirstName] & " " & [Forms]![CustomerInfo]![Contact subform].[Form]![LastName])) .ActiveDocument.SaveAs FileName:="C:TEMPPostProcessor-QAFORM.doc", FileFormat:=wdFormatDocument End WithobjWord.ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges 'Quit MicrosoftWord97 and release the object variable objWord.Quit Set objWord = Nothing Public Function Mailer(NameRef As String) Dim olkapps As Outlook.ApplicationDim olknamespaces As Outlook.NameSpaceDim objmailitems As Outlook.MailItem Set olkapps = New Outlook.ApplicationSet olknamespaces = GetNamespace("MAPI")Set objmailitems = olkapps.CreateItem(olMailItem)With objmailitems.To = NameRef.subject = "Key File".body = "".Importance = olImportanceHigh.Attachments.ADD "c: empLicensePack.txt".Attachments.ADD "C:TEMPPostProcessor-QAFORM.doc".Save End With Set objmailitems = NothingSet olknamespaces = NothingSet olkapps = Nothing End Function

Edit: Added [vbcode][/vbcode] tags for more clarity. - Hack

Header/Footer Remover
Hi All,
Does somebody know of a macro that can remove all the headers and footers in all the pages of a word document.
Thanks in advance,
Lonely

Header And Footer In Word
so far....

Code:
Option Explicit
Dim wrdSelection As Word.Selection
Dim wo As Word.Application
Dim wd As Word.Document

Private Sub Command1_Click()

Set wo = CreateObject("Word.Application")
wo.Visible = True
Set wd = wo.Documents.Add
wd.Select
Set wrdSelection = wo.Selection

wrdSelection.ParagraphFormat.Alignment = wdAlignParagraphCenter
wrdSelection.Font.Name = "Verdana"
wrdSelection.Font.Bold = True
wrdSelection.Font.Size = 22
wrdSelection.TypeText "My Program"
wrdSelection.TypeParagraph
wrdSelection.Font.Bold = False
wrdSelection.Font.Italic = True
wrdSelection.Font.Size = 19
wrdSelection.Font.Italic = False
wrdSelection.Font.Bold = True
wrdSelection.Font.Size = 10
wo.Selection.TypeParagraph
wo.Selection.TypeParagraph

Set wo = Nothing
Set wd = Nothing
Set wrdSelection = Nothing

End Sub

and i was wondering how i am to insert a header and footer into the word doc.... thats all ive got so far but iam getting there... ive searched through the forums and have not found anything that works for me...

thanks in advance

Can I Put The Header And Footer In PDF Files?
can i put the Header and footer in PDF files?
if yes,
How?
can i separate it out for odd and even pages?
also can i separate it out using for first and last page?
Thank you.

Copy Header/footer
I have a word document (doc1) with a header and a footer. I want to copy all the content of that document in another one (doc2). I am using the code "objword.Selection.WholeStory" and "objword.Selection.Paste", it works out but it only copy the text of the document and i want to copy the header and footer as well.

Please, can anyone help me?

Thanks a lot,

Kryska

Printing: Header And Footer
I have to print a form but I must also include some lines of header and footer. It' something like :

Some Header Detail
the form's printout
some footer information

The printout has to be accomodated on 1 page. The form will occupy only about half the page so there would be plenty of space for the Header and Footer. How can I accomplish this? I reckon the printer object or some api call may be useful but have no idea how to use it for this purpose. Please help.

Bye

Header AND Footer In Explorer
Is there any possiblity to remove Header and Footer from the printed page while printing documents from IE ???
It prints always by showing doucment location and page name !!!

Find And Replace In Header And Footer
I am trying to find and replace specific words in a word document. The following code works perfectly besides the fact that it does not find and replace any words in the header or footer. Can anyone help? I would really appreciate it.

Private Sub cmdContinue_Click()

Dim objWdApp As Word.Application
Dim objWdDoc As Word.Document
Dim objWdRange As Word.Range
Set objWdApp = New Word.Application
Set objWdDoc = objWdApp.Documents.Open(App.Path & "hospitalContigen 11-03.doc")
objWdApp.Visible = True

Set objWdRange = objWdDoc.Content

With objWdRange.Find

.ClearFormatting
.Replacement.ClearFormatting

.Execute findtext:="Siami", replaceWith:="Greg", Replace:=wdReplaceAll
.Execute findtext:="dr", replaceWith:="Mr", Replace:=wdReplaceAll

End With

End Sub

Header/footer Search And Replace Help
Hi I'm brand new to the whole word thing but I'm trying to write some code that will go through a document and remove its page numbering. Now the code I have written can do the job if i manually enter the page numbers, however it seems that it is unable to do the job if there are inserted in the normal manner. Anyone have any advice? also is there a way to specify that the search should only be carried out in the headers/footers?? cheers in advance

Code:
' *********************************************************************************
' ******* WORK OUT DOCUMENT LENGTH SO I CAN STRIP THE PAGE NUMBERS ****************
' *********************************************************************************

Dim pages As Long
Dim myrange, lastPage As Range

Set lastPage = ActiveDocument.Range.GoTo(wdGoToPage, wdGoToLast)
Set myrange = ActiveDocument.Range.GoTo(wdGoToPage, wdGoToFirst)
pages = 1
Do Until lastPage.Start = myrange.Start
Set myrange = myrange.GoTo(wdGoToPage, wdGoToNext)
pages = pages + 1
Loop

'clean up
Set myrange = Nothing
Set lastPage = Nothing
'debuging
'MsgBox pages

' *********************************************************************************
' ******** SEARCH THE DOCUMENT FOR SINGLE NUMBERS ~~~~~ ALTHOUGH THIS IS SILLY !!!!
' *********************************************************************************

Dim msr As Word.Range
Dim x As Integer
For Each msr In ActiveDocument.StoryRanges
For x = 1 To pages
' debug
' MsgBox x
With msr.Find
.Format = False
.Text = x
.Replacement.Text = "~~DELETED~~"
.Execute Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue
End With
Next x
Next

Set myStoryRange = Nothing

How To Test For Header/footer In Document
Maybe this is too simple for this forum.

In Word 97, this code removes a character from a header:
---------------------------------------------------------
If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
ActiveWindow.Panes(2).Close
End If
If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _
ActivePane.View.Type = wdOutlineView Or ActiveWindow.ActivePane.View.Type _
= wdMasterView Then
ActiveWindow.ActivePane.View.Type = wdPageView
End If
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
ActiveWindow.ActivePane.View.NextHeaderFooter
Selection.Delete Unit:=wdCharacter, Count:=1
-------------------------------------------------------------

what I need to do is test whether or not the document has a header before this part of the macro is executed. - How do I test for the existence of a header/footer in the document?

Thanks.

Ada

RTB - Header/Footer Print Preview
Does anyone have either code or a link that will show me how to create headers/footers when I am printing the contents of a RichText Box?

Thanks

Mark

How To Export Into *.rtf With Header And Footer Format?
My project converts normal .rtf files (with no header or footer) correctly, how to export with header and footer show?

My coding as below:

Private Sub RTFExport()
Dim RTF As New ActiveReportsRTFExport.ARExportRTF
Dim sFile As String
Dim bSave As Boolean

bSave = VBGetSaveFileName(sFile, "", True, _
"Rich Text Format (*.RTF)| *.RTF", , , "Export to RTF", "*.RTF", _
Me.hwnd, cdlOFNExplorer Or cdlOFNHideReadOnly Or cdlOFNLongNames)

If bSave Then RTF.FileName = sFile Else Exit Sub

If arv.Pages.count > 0 Then
RTF.Export arv.Pages
ElseIf Not arv.ReportSource Is Nothing Then
If arv.ReportSource.Pages.count > 0 Then
RTF.Export arv.ReportSource.Pages
End If
End If
Set RTF = Nothing
MsgBox "Convertion is done!"
End Sub

Print Header And Footer In RichTextBox
I am looking for a way to print file header and footer in Microsoft RichTextBox.

I looked up MSDN and found that header is supported, but when I included that in rtf file and loaded the RichTextBox. It didn't show up.

Is it achievable? If yes, how?

Loading The Header/Footer In EXCEL
I have a multi-page multi-sheet workbook that is populated by a VB6.0 application.

I need to find a way for the VB application to populate the workbook's header and footer.

Does anyone have any info/examples to accomplish this?

Thanks

Using A Header & Footer With Printer Object
Does anyone know if there's a way to put a header and/or footer on a page when using the printer object? I would like to have the page number out of (1 of 12) number on each page and other information. Hollar back if you have any ideas....Thanks again.

No L c
VB Developer

Fields (Page Numbers In Header/Footer)
This is a simple question about fields in general...

Say I've got a Range object, R:

Dim R as Range
Set R = ActiveDocument.Sections(1).Header(wdHeaderFooterPrimary).Range

Now all I want to do is put some text on the left, and the page number out of the total number of pages on the right. So I try this:

R.InsertBefore ("This is my text" & Chr(9) & Chr (9))
R.Fields.Add (R).Code.Text = "PAGE"
R.InsertAfter (" of ")
R.Fields.Add (R).Code.Text = "NUMPAGES"

But it seems like the last field add statement overwrites everything that's been put there before. I get "{PAGE} of" and then the last one replaces everything with "{NUMPAGES}".

My question: in general, how do you append or prepend a field to a range without overwriting its contents?

TIA,

Russ Ford

Locking Header&Footer In A Word Document
I would like to lock the header and footer on letters once they are created (populated with the information collected in a form)

In other words: the user opens the file, gets a form, keys in the data with no restrictions, but once the 'create letter' command button is pressed and the Word letter is created, the user will not be able to change the information within the header and footer. But will indeed be able to change any other information in the rest of the letter.

Any ideas are very much appreciated.

Excel-Header Or Footer With File Path
Is there a way, VBA code or direct in excel page setup, as possible in MS Word, to specify complete path in footer or header for excel sheet or file?

WebBrowser To Print - How Do I Eliminate Header & Footer?
Hello.

I've got a pretty nice looking HTML page for my invoices and by substitution the info for each customer in the HTML code and then printing the page through the WebBrowser, I'm ending up with some pretty nice results.

How do I get rid of the Header and the Footer when I do the

Code:
WebBrowser1.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER, 0, 0
statement?

VsPrinter Export To RTF File: Header/Footer
I'm using Videosoft VSView software from componentone. I've already been to their website. I am creating a report and sending it to the vsprinter object and it displays and prints fine - this includes headers and footers. During this process, I am also exporting it to an rtf file locally. The export works fine. However, the header/footer information is lost when I export it to the rtf file. I have tried to set the formatting of the header/footer text to be converted to the rtf (i.e. Left||Right). This again previews correctly on the vsprinter preview, but is not exported. How can I get the header/footer to export from the vsprinter object into the rtf file?

Insert Group Header/footer At Runtime?
Can anyone please tell me if there is anyway to insert a new group header and footer into my report at runtime using VB6 and data report control.
Regards
Anna

Copying Header & Footer To New Sheets In Excel
Hi, I have a small app I am writing that creates a new sheet in Excel after certain conditions are met (i.e. previous page is full ). It works perfectly, except I do not know how to make it copy the header and footer information.

Code:
Sub Arch_Charg_RT()

Set AddCharg = Worksheets.Add(after:=Sheets("Arch_Charg"))
AddCharg.Name = "Charg." & Format(Date, "mmdd.") & AddChargID
Sheets("Charge").Cells.Copy
AddCharg.[A1].PasteSpecial Paste:=xlValues 'This line copies the cell data
AddCharg.[A1].PasteSpecial Paste:=xlFormats 'This line copies the cell formatting
AddCharg.[A1].PasteSpecial Paste:=xlHeader/Footer 'Is this the proper syntax for the header or footer?
'I dont think it is and had errors when it was in there (the / is just
'for reference showing that I tried Header and Footer)
AddCharg.[A1].Select
AddChargID = AddChargID + 1
Set AddCharg = Nothing
ColID2 = 0
Call Charg_Clear

End Sub

.doc Conversion To .PDF, Drops Header/footer Lines
Good morning!

My VB app (6.0) creates multiple mail merge documents, combines them, and then allows the user to convert this doc to PDF via Adobe PDFWriter (as a printer). The conversion works fine with one exception -- the conversion to PDF through VB drops the line I have in the header and footer of the document.

I am using VB 6, Office XP (Word 2002), Windows 2000, Adobe Acrobat 5.0

When I manually convert a document the lines in the header and footer show up just fine, but not when I run the conversion through my VB app. Adobe maintains settings until a user changes them so it logically isn't a settings issue (of course, Microsoft is involved so logic sometimes doesn't apply!!! Don't get me wrong, I love the power of the Office programs, just not some of the silly glitches that come with it!!).

I'm very naive when it comes to VB so any advice would be greatly appreciated!!!! Due to the size of the document manual conversion is not ideal -- it sometimes "craps out" the system resources, but running it invisibly in the background from VB doesn't (not to mention it converts in less than half the time!! 1/2 hour as opposed to 1-2 hours!).

Has anyone seen this behavior before?

Thanks in advance for any advice!!
Mary

A Problem With DataReport's Group Header/Footer
Hi All,
I have a question about DataReport. In my datareport, i insert one more Group Header/Footer...but when I click the command button to show the report, the system pop up a message "Report Sections do not match data source"...when I delete the Group Header/Footer, it can display.

Anyone can help me???.....I need that Group Header/Footer

Displaying Header & Footer In Word Template
Dear Mates,

I have a word template with header and footer. I am struggling to display Project name in header and Company name in footer. Could any one suggest me with code how to proceed it.

Thanks

PC

Unable To Add In New Header/footer To Data Report
hi i have a problem here... i cant add addtional header/footer to my data report... i got this error : "data report section do not meet data source " ???????????? can help mi to solve this problem.. how this can be solve..

thanks a lots..

Rich Text Box Display
I'm writting a simple chat program. When the data is recieved from the Winsock connection I'm displaying it in a RichTextbox like this:

rtfTextBox.text = rtfTextBox.text & DataToBeAdded

Thats pretty primative, but my problem is when new data arrives and there is enough text in the textbox that you need to scroll to see it all, when I add the new text it scrolls so you're looking at the begining of the text box and I want it to always be showing whats at the end of the textbox. Does anybody know how I can do this???

- Beboh

Header/Footer In Excel File... Slow Code
Hi,
I have been using the following VBA Code as a macro in my excel files which removes all header/footers from the excel files. However, it seems to be very slow.

[vbcode]
Application.Calculation = xlCalculationManual
Application.StatusBar = "Removing Headers/Footers from " & MyFile & " ....(Please Wait)"
WS_Count = ActiveWorkbook.Worksheets.Count
For j = 1 To WS_Count
With ActiveWorkbook.Worksheets(j).PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
End With
Next
Application.Calculation = xlCalculationAutomatic
[/vbcode]

Please can someone help me with increasing the speed.

Or can someone help me in adding a code which shows a progress bar so that the user does not get the impression that the system has crashed.
Thanks,
thevbgirl

Removing Header,footer From Printed HTML Page
I'm trying to print a webpage using the WebBrowser control and no matter what I try I keep getting the header and footer information places on the paper. I know you can stop this manualy by going to print setup and deleting whatever is in the header and footer boxes and then printing but I need to do it programatically. This is my code so far.

------------------------
WebBrowser1.Navigate App.Path & " est.html"

Do While WebBrowser1.Busy
DoEvents
Loop

WebBrowser1.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER, Empty, Empty
--------------------------
Is there an option, maybe one of those "empty" values, that will disable the header and footer printing? If someone knows how maybe I can save the text in the "header" and "footer" boxes in the setup page, clear the text, save the new settings,print, and then put the text back in and save the settings again.

Thanks in advance.

Crystal Repot - Exporting Only Report Header And Footer
Hi,

I have problem while exporting a report to Excel. I have tried to export to excel versions 2.1 to 8. But it does not solve the problem. When I export the report, only the report header and report footer are exported. No other sections are exported. In the report the details section is hidden. Can anyone help me? Every help is very much appreciated.

Thanks and Regards

Kishore

Display Image In Rich Text Box
i can drag or paste an image into a rich textbox,
but is there anyway to display the image in position,
or any alternative way to achieve this result

thanks

Crystal Reports Page Header, Details And Report Footer
OK I have another question.

I have a report of more records in a table.

Table headers are written in 'page header',
records are displayd in 'Details section',
and then I have a "Thank you in advance adn similar crap" displayed in 'report footer'.

In 'page footer' I added page number.

My problem is, that when a report is more pages long, then page header is always displayed (even if there is only report footer on that page).

and becouse I have a table in details and page header, there are a lot of lines on the last page

http://samurai.streznik.org/cr.jpg

How Getting Rid Of The Header And Footer Posted With Image From The Client To The Server In Order To
WEB DEVELOPPING

Cheerful

Can VB Data Report Display Rich Text?
I need to display rich text in a VB data report. Can the data report display rich text? I can only get it to display the rich text with all the formatiing that goes along with it.

Thanks in advance,

Shannan

Display HTML File In A Rich Text Box
Hello,

I need an HTML file (Basic text formats like Bold, Color, Align etc.) to be displayed in a Rich text Box Control with disturbing the HTML format of the contents.

Help Please...

How Would I Display The Selected Line In A Rich Text Box?
How would I display the selected line in a rich text box?

Show Date, Time In Footer & Header When Excel Sheet Printed
Is it possible to show the data and time (and hopefully user name) when a worksheet is printed using vba, so that when the users selects Print, these details are added to the footer and header?

How To Change Leading Of A Font For Display In Rich Text
Hello,

I am trying to reduce the leading in a font that is used in a rich text box.

The richtextbox1.SelCharOffset set to -1, -23 does not do the check when the line wraps. The idea is, given at least 2 lines,:

Line1
Line2

I would like to get the Line2 characters as close to the Line1 characters (or even overlap them) in a rich text box.

Can anyone offer an example piece of code?

Thanks for the help,
Scott

Rich Text Box Control (RTB Control). Giving Backcolor To The Selected Text.
Really simple question (I really should know this but to be honest...I just never deal RTF codes or ever had to learn them). I just want to be able to give a backcolor to the currently selected text.

In general, I already have code that is color coding HTML/ASP for me in my HTML Editor but I want to be able to give the Yellow back color to the <% tags just like other editors do. I just feel dumb that I cannot figure it out. I got all the forecolor parts working using .SelColor = g_ASP_COLOR.

Code:
<%
'sample asp
%>

Pretty much just like this but in the RTB not HTML.

Clint LaFever (aka: DaVBMan)

Turtle Rich Text Control: VbAccelerator's RichEdit Control Modified To Work In An OCX
Many of you may have noticed issues in using Steve's original VbAccelerator Rich Edit control to build an OCX. Basically, you might just as me not be able to build an UserControl using the original vbAccelerator's Rich Edit control.

I took the chance of debugging Steve's original excellent control as i wanted to be able to build OCXs using it. This resulted in minor code modifications and in the necessity of including the SsubTmr6 code (still from VbAccelerator) within the control itself due to hooking issues that often resulted into crashing.

The resulting 'Turtle Rich Edit Control' therefore has one less dependency (SsubTmr6.dll is not needed), however just as the original control OleGuids.TLB is needed when running in the IDE.

I have made a first release of this modified control and posted it in the CodeBank here, and as per the vbAccelerator original license included in the downloadable file I have retained the original copyright notice, changed the name to 'Turtle Rich Edit Control' to exclude the name 'vbAccelerator' and made no mistery that this is entirely based on Steve McMahon's code.

I am posting this into the Classic VB section because i want to draw your attention and hopefully get some feedback from testers, and also because I kind of promised to Devion here that i would release this control, so here it is

Cheers,

Roberto Ostinelli