Udskive fra en list

Udskrives ? På en printer ?

For i = 0 To List2.ListCount - 1
  Debug.Print List2.List(i)
Next

ovenstående vil udskrive indholdet i Immediate vinduet..

det skal udskrives til en priner

Hmm .. der kan jeg ikke lige umiddelbart noget i hovedet .. jeg prøver lige at kigge på noget .

okay

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

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
For X=0 to list1.listcount-1
Put #hFile, , List1.list(i)
Next
        Close hFile
    \'shell print it
    Call ShellExecute(0&, \"Print\", sTmpFile, vbNullString, vbNullString, vbHide)
    \'delete it.
    Kill sTmpFile
End Sub

blazer:> dit forslag kræver at der er et program på computeren der kan printe RTF filer..

du skal lige smække en rich text box på....

huh??

Nej det gør ej.......

er sq da indbygget i rich text boxen!

(er næsten sikker)

blazer:> Sikkert nok, men ShellExecute aner sku da ikke at du har en RTF box på din form ..

blazer:> forøvrigt .. hva\' fane laver du med at åbne i Binary ? Så bliver det da ikke nogen pæn liste der bliver udskrevet ..

kan jeg bruge den kode som blazer er kommet med ????

Det burde du .. prøv .. men hvis du er uheldig, nej ..

blazer bruger jo slet ikke den RichTextBox kontrol som han fabler om.. så faktisk mener JEG ikke du kan bruge det kommer jeg lige i tanke om ..

hej tdaugaard 

kan jeg ikke få din e-mail det er lidt lettere, du lyder til at have meget forstand på VB programmering, hvis du gider at hjælpe mig mere kan jeg bare sende en e-mail til dig.....

thomas@tdaugaard.dk ... :)

For i = 0 To List2.ListCount - 1
Printer.Print List2.List(i)
Next

Virker!!!

i know ...

hehe :)

At jeg ikke tænkte på det med det samme i stedet for den kæmpe omvej :(

For i = 0 To List2.ListCount - 1
blah=blah & list2.list(i) & chr(13)
Next
Printer.Print blah

endnu bedre :)