vb ÈçºÎÉèÖôòÓ¡±ß¾à?
ÐèÒª´òÓ¡µÄ´°Ìå´óСΪ: 10545 * 9180
´òÓ¡»úĬÈÏÖ½ÕÅ´óСΪ: A4
ÎÊ:
ÔõÑùʹ´òӡʱ¶¥²¿¼°×ó±ß×°¶©Ï߸÷Ô¤Áô 10mm µÄλÖÃ?
лл!!!
ÒÔÏÂÄãÎÒ´òÓ¡²¿·ÖµÄ´úÂë:
Private Sub Cmd_print_Click()
Printer.PaperSize = vbPRPSA4
Printer.PrintQuality = -4
Width = Me.ScaleWidth
Height = Me.ScaleHeight
Me.PrintForm
End Sub
[Quote=ÒýÓà 2 Â¥ jhone99 µÄ»Ø¸´:]
ÉèÖôòÓ¡Ò³±ß¾à
Äã¿ÉÒÔʹÓôòÓ¡»úµÄScaleÊôÐÔÀ´ÉèÖôòÓ¡Ò³±ß¾à¡£ÏÂÃæµÄ´úÂëÉèÖÃ×ó±ß¾àΪ1/2Ó¢´ç¡£Óұ߾àΪ3/4Ó¢´ç¡£³ËÒÔ1440Êǽ«Ó¢³ßת»»³Étwips¡£
Printer.ScaleLeft = -0.75 * 1440
Printer.ScaleTop = -0.5 * 1440
Printer.CurrentX = 0
Printer.CurrentY = 0
Â¥ÉϵÄÅóÓÑ,ÎÒÊÔ¹ýÁË,µ«ÊDz»³É¹¦!
¼ÌÐøÆÚ´ý...
ÊDz»ÊÇÂÛ̳¸Ä°æºó´ó¼ÒÓÐЩ²»Ï°¹ßÄØ????
Ïà¹ØÎÊ´ð£º
´ó¼ÒºÃ£¬Îʸövb´òÓ¡ÎÊÌâ
printer.print "dsff"
.....
....
Printer.EndDoc
´òÓ¡³É¹¦ºóÎÒ½«Ö´ÐÐ
sqlstr = "update vc_yh set pr=' ÒÑ´òÓ¡ ', ......
vbÖÐÔõôͨ¹ýxmlÀ´½âÎöÊý¾Ý¿âÖеÄ×Ö¶ÎÖµ¡£
û°ì·¨ÓÃXML½âÎöÊý¾Ý¿âµÄ×Ö¶ÎÖµ£¬³ý·ÇÊý¾Ý¿âÖб£´æµÄÊÇXML¸ñʽµÄ×Ö·û´®Îĵµ¡£
XMLÓÃÀ´Õ¹Ê¾²ã´ÎµÄÊý¾Ý¡£
Êý¾Ý¿âÒ»°ãÊǶþάÊý¾Ý¡£
Êý¾Ý¿âÖб£´æµÄÊÇXML×Ö·û´®¸ñʽ£ ......
ÎÒÓÃC#дÁËÒ»¸öCOM¡£
ÆäËûÓУ²¸öÀ࣬һ¸öÀà¾ÍÊÇÆÕͨ·½·¨¡£µ÷ÓÃûÎÊÌâ¡£
ÁíÒ»¸öÀàÊÇÓû§¿Ø¼þ¡£ÎÒÔÚVBÖÐÈçºÎ°ÑÄǸö¿Ø¼þÏÔʾ³öÀ´£¿
VBµ÷COMÖУ¬COM ÊǸö¿Ø¼þ¡£
лл¸ßÊÖÖ¸µã¡£
......
ÔÙVBÄ£¿éÖÐÎÒÊÇͨ¹ýÈçÏ·½Ê½À´Á¬½ÓÖ÷¿âºÍÀúÊ·¿âµÄ(ÀúÊ·¿âÊý¾ÝÁ¿´ó)
VB code:
Public Connstr As String
Public objConn As New ADODB.Connection
Public ConnHISstr As String
Public objConnHIS As New A ......