Tid og printer

Label1.Caption = Format(Time) <- Tiden

Casper // http://ildstorm.dk

Til print kan du bruge komponetet Commondialog, tror det er noget a'la:
CommonDialog.ShowPrinter
CommonDialog.Print ":-)". Husk den skal tilføjes

Omregning af sekunder:

Dim intOmregnSekunder As Integer
Dim intTimer As Integer
Dim intMinutter As Integer
Dim intSekunder As Integer

intOmregnSekunder = 14000
   
intTimer = intOmregnSekunder \ (60 * 60)
intMinutter = (intOmregnSekunder - (intTimer * 60 * 60)) \ 60
intSekunder = intOmregnSekunder - ((intMinutter + (intTimer * 60)) * 60)

MsgBox intTimer & ":" & intMinutter & ":" & intSekunder

Printer: Brug følgende... hvis du vil ændre placeringen kan du "skrue" på CurrentX/CurrentY:

Printer.CurrentX = 0
Printer.CurrentY = 0
Printer.Print "Hentet fra DB: " & rs("DbField").value
Printer.EndDoc