🚀 go-pugleaf

 $B$3$s$K$A$O!#(B

$B!!#V#B#5$r$D$+$C$F!"#W#i#n#d#o#w#s$N2hLL%O!<%I%3%T!<%D!<%k$r:n$C$F$_$^$7$?!#(B
$B$9$4$/C1=c$J$b$N$G!"%G%9%/%H%C%W$NFbMF$rDL>o;H$&%W%j%s%?$K!"MQ;f0lGU$K0u:~(B
$B$9$k$H$$$&$b$N$G$9!#0J2<$K%=!<%9$N0lIt$r=q$-$^$9!#ESCf!"2~9T$J$I$rF~$l$^$;(B
$B$s$N$G8+6l$7$$$+$b$7$l$^$;$s$,$*5v$7$r!%!%!%!#(B

Private Sub Command1_Click()

    Dim hwnd As Long
    hwnd = GetDesktopWindow()

    Dim hdc As Long
    hdc = GetWindowDC(hwnd)

    Dim cxScreen As Long
    Dim cyScreen As Long
    cxScreen = GetSystemMetrics(SM_CXSCREEN)
    cyScreen = GetSystemMetrics(SM_CYSCREEN)

    Call StretchBlt(Picture1.hdc, 0, 0, Picture1.ScaleWidth,
Picture1.ScaleHeight, hdc, 0, 0, cxScreen, cyScreen, SRCCOPY)

    Printer.ScaleMode = vbPixels
    Printer.ColorMode = vbPRCMColor

    Printer.NewPage
    Call StretchBlt(Printer.hdc, 0, 0, Printer.ScaleWidth,
Printer.ScaleHeight, hdc, 0, 0, cxScreen, cyScreen, SRCCOPY)
    Printer.EndDoc

    Call ReleaseDC(hwnd, hdc)

End Sub

$B!!8=:_!";H$($k%W%j%s%?$H$7$F%M%C%H%o!<%/>e$K#2Bf$"$j$^$7$F0lBf$O%b%N%/%m!"(B
$B0lBf$O%+%i!<$J$N$G$9$,!"%+%i!<$N$[$&$K0u:~$r$9$k$H0u:~%G!<%?$,Aw$i$l$F$$$J(B
$B$$$h$&$J$N$G$9!#6qBNE*$K$O>e$N%3!<%I$N7k2L!"MQ;f$,#2KgAw$j=P$5$l$k$@$1$G$9!#(B
$B%b%N%/%m$N$[$&$X$O$A$c$s$H0U?^$7$?$H$*$j$K0u:~$5$l$^$9!#%+%i!<$@$H2?$+FCJL(B
$B$J$3$H$r$7$J$1$l$P$$$1$J$$$N$G$7$g$&$+!#$4B8CN$NJ}$$$i$C$7$c$$$^$7$?$i65$((B
$B$F2<$5$$$^$;$s$G$7$g$&$+!#(B

$BF0:n4D6-$O!"#W#i#n#d#o#w#s#N#T#4!%#0$N%5!<%P!<$H#W#i#n#d#o#w#s#9#5$N%/%i%$(B
$B%"%s%H$G#W#i#n#9#5>e$GF0$+$7$F$$$^$9!#%W%j%s%?$O%b%N%/%m$,%j%3!<$N#I#m#a#g(B
$B#i#o#2#5#0#p$G%+%i!<$N$[$&$,%(%W%=%s$N#M#J!]#5#1#0#0#C$G$9!##M#J!]#5#1#0#0(B
$B#C$r%Q%=%3%s$KD>@\$D$J$$$G$_$F$b7k2L$OF1$8$G$7$?!#(B


$B3t<02q<R%"%/%H(B
$B4];3(B