printing directly from notepad

[briogene]

i have the following string that i have passed to notepad Private Sub PrintNotepad() Dim MySecurity As New MajiDll.Security Dim strCode As String Dim myNum As Integer strCode = strCode & " NYERI WATER AND SEWERAGE COMPANY LIMITED {ENTER}" strCode = strCode & " P.O Box 1520 {ENTER}" strCode = strCode & " TEL 2034548,2034617,2034623{ENTER 2}" strCode = strCode & " DATE : " & Format(Date, "dd-mm-yy") & "{ENTER}" strCode = strCode & " TIME : " & Format(Time, "hh:mm:ss") & "{ENTER}" strCode = strCode & " NAME: " & lblname.Text & "{ENTER}" strCode = strCode & " ACCOUNT NUMBER: " & txtAccNo & "{ENTER}" strCode = strCode & " PAYMENT FOR : " & cboFundType & "{ENTER}" strCode = strCode & " AMOUNT RECEIVED : " & txtAmntReceived & "{ENTER}" strCode = strCode & " AMOUNT CHARGED : " & txtAmountApply & "{ENTER}" strCode = strCode & " CHANGE : " & lblbal & "{ENTER}" strCode = strCode & " The Sum of Kshs: " & MySecurity.numConverter(txtAmountApply, "Shillings") & "" Shell "Notepad.exe", vbNormalFocus SendKeys strCode, True End Sub Could some one out there help me in printing it directly to a printer as it first opens the notepad then u have to click print for it to print briogene

[Cameron Marsden]

Email me on code {at} osdirect dot com dot au and I will send you over a class that will help with the printing... :D Cam

[AliAmjad]

briogene wrote:

SendKeys strCode, True

After this can't you send the Ctrl and P keys to execute the print command. hope it help !

AliAmjad(MCP) First make it Run THEN make it Run Fast!