Page 1 sur 1
Aperçu avant impression
Publié : mer. 12/déc./2007 20:20
par Cls
Bonsoir à tous,
Petite question concernant l'impression. Y'a - t - il moyen de faire un aperçu avant de lancer l'impression ?
Je n'ai pas d'imprimante chez moi et je souhaiterai voir ce que donne concrètement.
Merci d'avance.
Cordialement,
Cls
Publié : mer. 12/déc./2007 20:31
par RV
Salut Cls,
Au lieu de dessiner directement sur le PrinterOutput() tu dessines sur une image, que tu affiches après en n'oubliant pas de la réduire car les définitions imprimante sont assez importantes (pour moi 4800/6600)!
Publié : mer. 12/déc./2007 21:59
par comtois
Vu sur CodeArchiv
Code : Tout sélectionner
; English forum:
; Author: Unknown (updated for PB4.00 by blbltheworm)
; Date: 14. March 2003
; OS: Windows
; Demo: Yes
Declare ycm(x.f)
Declare xcm(x.f)
Procedure xcm(x.f)
result = x * (675/ 21)
ProcedureReturn result
EndProcedure
Procedure ycm(x.f)
result = x * (467 / 29.7)
ProcedureReturn result
EndProcedure
Procedure WindowCallback(WindowID, Message, lParam, wParam)
If Message = #WM_PAINT
StartDrawing(WindowOutput(0))
DrawImage(ImageID(0), 50, 50)
StopDrawing()
EndIf
ProcedureReturn #PB_ProcessPureBasicEvents
EndProcedure
If OpenWindow(0, 100, 100, 600, 500, "PureBasic - Image", #PB_Window_SystemMenu)
Gosub CreateImage
SetWindowCallback(@WindowCallback())
Repeat
EventID = WaitWindowEvent()
Until EventID = #PB_Event_CloseWindow ; If the user has pressed on the close button
EndIf
End
CreateImage :
CreateImage(0, 657, 467) ; this is 1/10 of a 600dpi page
LoadFont(0, "Arial", ycm(1))
LoadFont(1, "Arial", ycm(0.5))
If StartDrawing(ImageOutput(0))
Box(0, 0, 657, 467,RGB(255,255,255))
DrawingFont(FontID(0))
DrawText(xcm(1), ycm(1),"PureBasic Printer Test")
DrawingFont(FontID(1))
DrawText(xcm(5), ycm(16),"PureBasic Printer Test 2")
StopDrawing()
ResizeImage(0,500,400)
EndIf
Return
Publié : mer. 12/déc./2007 23:15
par RV
C'est qu'est-ce que je disais...nan
Publié : jeu. 13/déc./2007 13:17
par Cls
Merci beaucoup je vais tester ca.
Cordialement,
Cls