help!!! Stampare testo e form

[Paco.Baldacci]

Salve ragazzi, ciao moderatori,

sto cercando "disperatamente" di stampare sullo stesso foglio un testo (e questo l'ho fatto) più un form. Oppure testo e due form (sulla stessa pagina)

Questo è il codice che ho scritto:

------------------------
Printer.NewPage

Call TipoFont("Arial", 25, 4)
Printer.Print "DELTASOLAR"

Call TipoFont("Arial", 8, 0)
Printer.Print Format$(Date, "dddd dd mmmm yyyy") & ", ore "; Time

' Stampa Logo
Printer.CurrentX = 0
Printer.CurrentY = 20
frm1.PrintForm

' Stampa Freddezza Pareti
Printer.CurrentX = 0
Printer.CurrentY = 60
frm2.PrintForm

Printer.EndDoc
------------------------

La procedura TipoFont serve a velocizzare le impostazioni del
carattere da stampare.
Al lancio, mi mostra questo errore

----
Errore 486
Impossibile stampare l'immagine del form su questo tipo di stampante.
----


però la stampa inizia, ma stampa solo il form frm1, senza testo e senza l'altro form.


Dove sbaglio?!?!


grazie

[yyzyyz]

se nn ho capito male nn puoi utilizzare printform con l'ggetto printer, infatti printform dev'essere usato da solo (o sbaglio ?)

[Paco.Baldacci]

esatto.
cioè, vorrei stampare testo e immagini (picture o image box) insieme ad un form (qualsiasi) sulla stessa pagina.
Attualmente sono riuscito (ho studiato un po' meglio !!) a stampare immagini e testo, sul foglio, mediante l'oggetto printer.
E' abbastanza semplice (pensavo fosse più complicato).
Il problema è che così sono costretto a creare ciò che voglio stampare oggetto per oggetto posizionandoli, mediante le coordinate, sul foglio (currentX e curentY).
Invece se creo un form adeguato posso stamparlo sulla pagina, affiancandolo oppure posizionandolo prima o dopo di eventuali altre immagini o testo.

Spero di essermi spiegato bene

[yyzyyz]

usare il printform x la stampa di fogli in a4 nn è l'ideale, io ho avuto molti problemi tempo fa, meglio utilizzare il posizionamento tramite l'oggetto printer, anke se esistono altri sistema x la stampa , dipenda ke ci devi fare.

'per posizionarti dove vuoi
Printer.CurrentX = 8500 
Printer.CurrentY = 2000 

'per cambiare il font
Printer.FontSize = 10 
Printer.Font = "Tahoma" 
Printer.FontBold = False 

'per stampare una immagine
Call Printer.PaintPicture(Image1.Picture, 700, 500) 

'per gestire la qualità di stampa
Printer.PrintQuality = vbPRPQDraft '--> Draft resolution 
Printer.PrintQuality = vbPRPQLow '--> Low resolution 
Printer.PrintQuality = vbPRPQMedium '--> Medium resolution 
Printer.PrintQuality = vbPRPQHigh '--> High resolution