讓你的窗體獲得焦點
十年的通川網(wǎng)站建設(shè)經(jīng)驗,針對設(shè)計、前端、開發(fā)、售后、文案、推廣等六對一服務(wù),響應(yīng)快,48小時及時工作處理。全網(wǎng)整合營銷推廣的優(yōu)勢是能夠根據(jù)用戶設(shè)備顯示端的尺寸不同,自動調(diào)整通川建站的顯示方式,使網(wǎng)站能夠適用不同顯示終端,在瀏覽器中調(diào)整網(wǎng)站的寬度,無論在任何一種瀏覽器上瀏覽網(wǎng)站,都能展現(xiàn)優(yōu)雅布局與設(shè)計,從而大程度地提升瀏覽體驗。創(chuàng)新互聯(lián)公司從事“通川網(wǎng)站設(shè)計”,“通川網(wǎng)站推廣”以來,每個客戶項目都認真落實執(zhí)行。
按住ALT 再按 PRINT SCREEN SYSRQ
保存成圖片 打印圖片
VB可以用CurrentX、CurrentY 屬性實現(xiàn)定位打印。用ScaleMode 屬性確定打印機對象坐標的度量單位。
CurrentX、CurrentY 屬性,返回或設(shè)置下一次打印或繪圖方法的 水平 (CurrentX) 或垂直
(CurrentY) 坐標。
ScaleMode 屬性,當使用圖形方法或調(diào)整控件位置時,返回或設(shè)置一個值,該值指示對象坐標的度量單位。
具體實現(xiàn)代碼:
Option?Explicit
Dim?X?As?Long
Dim?y?As?Long
Dim?fnt?As?Variant
Dim?txt?As?String
Dim?dy?As?Variant
Public?Function?prnt(X?As?Variant,?y?As?Variant,?fnt?As?Variant,?txt?As?Variant)
Printer.CurrentX?=?X
Printer.CurrentY?=?y
Printer.FontSize?=?fnt
Printer.Print?txt
End?Function
Private?Sub?Command1_Click()
Printer.ScaleMode?=?6?'以mm定位
Printer.CurrentX?=?10
Printer.CurrentY?=?20
fnt?=?12
txt?=?"YD(0)"
dy?=?prnt(X,?y,?fnt,?txt)
Printer.EndDoc
End?Sub
可以調(diào)用窗體的PrintForm方法用打印機打印整個窗體,比如
[窗體名字.]PrintForm
如果省略窗體名字表示打印當前窗體。
需要注意的是,用PrintForm方法時必須先顯示窗體。打印的內(nèi)容是整個窗體圖像,包括菜單欄,標題欄等。另外,如果窗體包括圖形,必須將窗體的AutoRedraw屬性設(shè)為True時才可以。
有截屏鍵Ctrl + Alt + prtScr/sysRq(prtScr/sysRq在F12旁邊),再打開畫圖、WORD等粘貼就行了