| Printer.PaintPicture |
| |
| |
| Private objPic As Picture | |
| |
| Private Sub cmdUnload_Click() | Bild entladen (wird hier schon in den Eigenschaften |
| Set objPic = LoadPicture("") | geladen). |
| Set Picture1.Picture = objPic | |
| End Sub | |
| |
| Private Sub cmdPrint_Click() | Bild drucken. |
| Printer.Print "" | Drucker initialisieren. |
| Printer.PaintPicture Picture1.Picture, 500, 450 | Koordinaten einstellen (in Twips!). |
| Printer.EndDoc | |
 | |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| Private Sub cmdPrintMore_Click() | Verteilt den Druck auf mehrere Seiten, falls Bild zu groß. |
| Printer.Print "" | |
| Printer.PaintPicture Picture1.Picture, 0, 0, , , 0, 0, , Picture1.Height / 2 |
| Printer.NewPage | Koordinaten... |
| Printer.PaintPicture Picture1.Picture, 0, 0, , , 0, Picture1.Height / 2, , Picture1.Height / 2 |
| Printer.EndDoc | |
| End Sub | |
| |
zurück