是不是這樣?
Private Sub Form_Load()
Dim dtp1 As String, dtm1 As String
Form1.AutoRedraw = True
Form1.FontSize = 20
Form1.ForeColor = &H7700FF
'Form1.BorderStyle = 1
dtp1 = "2003-1-10"
dtm1 = "8:30:00"
Print Left(dtp1, 4) & Right(Left(dtp1, 7), 2) & Right(dtp1, 2) & Left(dtm1, 2); Left(Right(dtm1, 5), 2)
End Sub