printer object

здравейте! опитвам се да направя приложение, което да печата съдържанието на форма. като начало почнах със следното примерче

Private Sub Command1_Click()



Dim name As String

Dim surname As String

Dim msg As String

Dim HWidth, HHeight As Integer



    msg = nameBox.Text & " " & surNameBox.Text

    Printer.NewPage

    Printer.FontSize = 14

    Printer.Font = "Arial"

    HWidth = Printer.TextWidth(msg) / 2

    HHeight = Printer.TextHeight(msg) / 4

    Printer.CurrentX = Printer.ScaleWidth / 2 - HWidth

    Printer.CurrentY = Printer.ScaleHeight / 2 - HHeight

    Printer.Print msg

    Printer.EndDoc

    MsgBox msg

    

End Sub

въпросът ми е каква е причината принтера да печата две страници, една след друга а не само една.



(Редакция: поставени тагове на кода, за да не се размества - Щирлиц)

:))))

И сигурно първата страница е празна ?

Махни реда Printer.NewPage

Успех !