'vb6.0'에 해당되는 글 1건

  1. 2016.01.11 [vb6.0] 구구단 프린트하기 + Printer
2016. 1. 11. 17:48
Private Sub Command1_Click()
    Dim i, j As Integer
    For i = 2 To 9
        For j = 2 To 9
            Printer.Print i & "x" & j & "=" & i * j,
        Next j
        Printer.Print Chr(13)
    Next i
    Printer.FontName = "굴림"
    Printer.FontSize = 16
    Printer.FontBold = True
    Pinter.FontItalic = False
    Printer.FontUndeline = False
    Printer.Print Text1.Text
    Printer.EndDoc
End Sub



이 포스팅은 쿠팡 파트너스 활동으로, 일정액의 커미션을 제공받고 있습니다.


Posted by vbnvba