esc koder til en OKI 3320

Prøv dette her, det virker på min printer

Open Printerport For Output As #1
'Uploader defineringer til printeren
Print #1, Chr(12); Chr(15) 'næste side & condensed
Print #1, Chr(27) & Chr(77) '12 cpi
Print #1, Chr(27) & Chr(48) '8 linier pr tomme
Print #1, Chr(27) & Chr(82) & Chr(10) 'Danske karakterer

Eller dette her

Open Printerport & ":" For Binary As #1
Dim x As Integer
Put #1, , vbTab & Time & vbTab ' Udskriver Logning
For x = 0 To 15
  Put #1, , tmp(x) & vbTab
    Next

Takker det vil jeg prøve i morgen

Det virker SQ takker