Print af labels

Prøv dette:

Private Sub cmdPrint_Click()
Printer.Print Text1.Text
Printer.EndDoc
End Sub

/Schubert1

Hey romme! :-)

Her er en kode der kalder printer-dialogboksen, hvor du så kan printe fra - med den ønskede printer.

- Webcrawler

Enjoy!


\'Printkode:
\'Husk et CommonDialog-element i formen.
\'Hver linie du vil printe, skal starte med \"Printer.Print\".
\'En linie i koden med kun \"Printer.Print\" laver et linieskift.
--------------------------------------------------------------

Dim BeginPage, EndPage, NumCopies, i
    \' Set Cancel to True
    CommonDialog1.CancelError = True
    On Error GoTo ErrHandler
    \' Display the Print dialog box
    CommonDialog1.ShowPrinter
    \' Get user-selected values from the dialog box
    BeginPage = CommonDialog1.FromPage
    EndPage = CommonDialog1.ToPage
    NumCopies = CommonDialog1.Copies
    For i = 1 To NumCopies
        Printer.Print \' skriv printerkode her
    Printer.Enddoc   
    Next i
    Exit Sub
ErrHandler:
    \' User pressed the Cancel button
    Exit Sub

Hvad hvis man gerne vil printe noget detaljeret ala html?