Non ho ancora chiuso la discussione perchè non riesco ancora a far funzionare la stampante.
Sistematicamente mi tira fuori un foglio miseramente bianco.
Allego un banale sorgente non funzionante.
Public Sub BTN_Stampa_Click()
Me.Printer1.Configure
Me.printer1.Print
End
Public Sub Printer1_Draw()
Dim Messaggio As String
Messaggio = "Res: " & Str(printer1.Resolution) & ", Width: " & Str(printer1.PaperWidth) & ", Height: " & Str(printer1.PaperHeight)
message.Info(Messaggio)
Paint.Font.Name = "Sans"
Paint.Font.Size = 90
Paint.Font.Bold = True
Paint.MoveTo(10, 135)
Paint.Text("Hello kdjgh gkjh kghdf kgjh kgh kjgh kjh kh k kh khkh")
Paint.End
End
hai risolto?
Secondo me deve:
* eliminare il riferimento a
Me. nella prima routine (a me dà errore se lo lascio lì);
* cambiare Paint.
Text("......") in
Paint.DrawText(".......")In vero, può anche lasciare
Paint.Text, ma in questo caso deve porre dopo di esso il comando
Paint.Fill .
Anche l'uso di
Paint.RichText è possibile, ma - come nel caso di
Paint.Text - si deve porre dopo di esso il comando
Paint.Fill .
Così modificato in uno dei due modi, a me il codice di
aulin stampa perfettamente.