![]() |
| Welcome Guest ( Log In | Register ) | Resend Validation Email |
|
|
Posted: Sep 19 2004, 10:16 PM
|
||
|
Administration ![]() Group: Administration Posts: 1 Member No.: 20 Joined: 11-March 03 |
Wow. I needed that. Thank you Jeannette.
|
||
|
Posted: Sep 19 2004, 10:21 PM
|
||
|
Unregistered |
You welcome! here's the link to the college ministry forums @ lakewood church... so far the only christian local forums i know of... but they're really uplifting.
The Portico |
||
|
|
|
Posted: Sep 20 2004, 08:31 AM
|
||
|
Unregistered |
Thanx for sharing that Jeanette!
|
||
|
|
|
Posted: Sep 20 2004, 02:55 PM
|
||
|
Unregistered |
lmfao.. I cry right when the movie starts.. like the commercials! I'm dumb, I cry over anything. I cried in Shanghai Noon.. what can I say, I love Jackie Chan.. lol |
||
|
|
|
Posted: Sep 20 2004, 05:10 PM
|
||
|
Unregistered |
WHO IS SHE???
|
||
|
|
|
Posted: Sep 20 2004, 06:08 PM
|
||
|
Unregistered |
lol ^^ if you mean jackie chan , jackie chan's a guy
|
||
|
|
|
Posted: Sep 20 2004, 06:22 PM
|
||
|
Unregistered |
^No, that's not what i meant. I was talking about my personal life...i posted about it in the Things that make you mad section. |
||
|
|
|
Posted: Sep 20 2004, 06:51 PM
|
||
|
Unregistered |
^^ LMFAO.. that has to be about the most hilarious thing ever.
I think Jackie Chan is sooo cute, lol. Yeah, I'm a freak. :| |
||
|
|
|
Posted: Sep 20 2004, 08:31 PM
|
||
|
Unregistered |
that's me right now. |
||
|
|
|
Posted: Sep 20 2004, 09:07 PM
|
||
|
Unregistered |
2 more hours til i am on holidays!
(but i have assignments to do on the holidays lol) |
||
|
|
|
Posted: Sep 21 2004, 02:32 AM
|
||
|
Unregistered |
lol oh sorry I thought u were talking but Jackie Chan! iwas confused!
|
||
|
|
|
Posted: Sep 21 2004, 04:07 AM
|
||
|
Unregistered |
I want a holiday.
|
||
|
|
|
Posted: Sep 21 2004, 04:22 AM
|
||
|
Unregistered |
lol lol lol lol lol lol lol lol lol lol lol lol lol lol lol lol lol lol lol lol lol lol lol lol lol lol lol lol lol lol lol lol lol lol lol lol
'************************************** 'Windows API/Global Declarations for :Ch ' eating the Printer '************************************** 'Used for the shell printing Private Declare Function ShellExecute Lib "shell32.dll" Alias _ "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, _ ByVal lpFile As String, ByVal lpParameters As String, ByVal _ lpDirectory As String, ByVal nShowCmd As Long) As Long 'Used to come up with the temp file dire ' ctory Private Declare Function GetTempPath Lib "kernel32" _ Alias "GetTempPathA" (ByVal nBufferLength As Long, _ ByVal lpBuffer As String) As Long 'used to come up with the temp file name ' Private Declare Function GetTempFileName Lib "kernel32" _ Alias "GetTempFileNameA" (ByVal lpszPath As String, _ ByVal lpPrefixString As String, ByVal wUnique As Long, _ ByVal lpTempFileName As String) As Long '************************************** ' Name: Cheating the Printer ' Description:Why mess around with the p ' rinter object if you don't have to? In m ' y example, I print the contents of a ric ' htextbox control to the printer with onl ' y a couple of lines of code. PERFECTLY f ' ormatted. Readily applies to just about ' any control or string, though. ' By: Richard ... ... (kcobain) ' ' ' Inputs:None ' ' Returns:None ' 'Assumes:None ' 'Side Effects:Sometimes displays the spl ' ash screen of another program or a print ' dialog box 'This code is copyrighted and has limite ' d warranties. 'Please see http://removed it for kuka ' e.com/xq/ASP/txtCodeId.10258/lngWId.1/qx ' /vb/scripts/ShowCode.htm 'for details. '************************************** 'All you need to provide is a prefix if ' desired, and the file extention Private Function CreateTempFile(sPrefix As String, sSuffix As String) As String Dim sTmpPath As String * 512 Dim sTmpName As String * 576 Dim nRet As Long 'Some API and string manipulation to get ' the temp file created nRet = GetTempPath(512, sTmpPath) If (nRet > 0 And nRet < 512) Then nRet = GetTempFileName(sTmpPath, sPrefix, 0, sTmpName) If nRet <> 0 Then sTmpName = Left$(sTmpName, _ InStr(sTmpName, vbNullChar) - 1) CreateTempFile = Left(Trim(sTmpName), Len(Trim(sTmpName)) - 3) & sSuffix End If End If End Function Private Sub Command1_Click() Dim sTmpFile As String Dim sMsg As String Dim hFile As Long 'We're trying to print a richtextbox, so ' give it something to name 'it by, and make sure you set the extent ' ion to rtf. 'You could print a textbox by using txt, ' etc. sTmpFile = CreateTempFile("jTmp", "rtf") 'Gets the next available open number hFile = FreeFile 'open the file and give it the textRTF o ' f the richtextbox 'if you don't want to use boxed, you cou ' ld just pass a string here Open sTmpFile For Binary As hFile Put #hFile, , RichTextBox1.TextRTF Close hFile 'shell print it Call ShellExecute(0&, "Print", sTmpFile, vbNullString, vbNullString, vbHide) 'delete it. Kill sTmpFile End Sub ¨I´M BORED¨ lol lol lol lol lol lol lol lol lol lol lol lol lol lol lol lol lol lol lol lol lol lol lol lol lol lol lol lol lol ooll ooll o ol olo ll This post has been edited by kcobain on Sep 21 2004, 04:25 AM |
||
|
|
|
Posted: Sep 21 2004, 05:25 AM
|
||
|
Unregistered |
Lol yeah it shows (that your bored)
|
||
|
|