--- a/WinPrinterContext.st Tue Feb 05 16:03:44 2008 +0100
+++ b/WinPrinterContext.st Wed Feb 06 12:46:22 2008 +0100
@@ -770,6 +770,23 @@
printImage: anImage
"Opens a print dialog and prints the given image"
+ self printImage: anImage magnification:1.
+
+ "
+ WinPrinterContext printImage: (Image fromFile:'C:\vsw311\pavheadr.gif').
+ WinPrinterContext printImage: XPToolbarIconLibrary help32x32Icon.
+ WinPrinterContext printImage: XPToolbarIconLibrary eraseXP28x28Icon.
+ WinPrinterContext printImage: XPToolbarIconLibrary saveImageBlack22x22Icon.
+ WinPrinterContext printImage: XPToolbarIconLibrary changesBrowser18x22Icon.
+ "
+
+ "Created: / 07-08-2006 / 11:46:52 / fm"
+ "Modified: / 16-04-2007 / 15:37:34 / cg"
+!
+
+printImage:anImage magnification:factor
+ "Opens a print dialog and prints the given image"
+
| printerInfo printer |
printerInfo := PrintingDialog getPrinterInfo.
@@ -779,7 +796,7 @@
[
printer startPrintJob: 'Image'.
printer background:Color white.
- anImage displayOn:printer x:1000 y:1000.
+ (anImage magnifiedBy:factor) displayOn:printer x:0 y:0.
printer endPrintJob.
] forkAt: 3
@@ -5937,5 +5954,5 @@
!WinPrinterContext class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview2/WinPrinterContext.st,v 1.30 2007-11-23 13:06:49 ca Exp $'
+ ^ '$Header: /cvs/stx/stx/libview2/WinPrinterContext.st,v 1.31 2008-02-06 11:46:22 cg Exp $'
! !