ÒªÓÃvb´òÓ¡Ò»ÌõÏߣ¬³¤¶ÈÊÇ100ºÁÃ×Ôõôд£¿
¹Ø×¢
VB code:
Printer.ScaleMode = vbMillimeters
Printer.Line (10, 10)-(110, 10)
Printer.ScaleMode = vbMillimeters
Printer.Line -(Printer.CurrentX + 100, Printer.CurrentY)
ѧϰ
ScaleMode ÊôÐÔ
µ±Ê¹ÓÃͼÐη½·¨»òµ÷Õû¿Ø¼þλÖÃʱ£¬·µ»Ø»òÉèÖÃÒ»¸öÖµ£¬¸Ãֵָʾ¶ÔÏó×ø±êµÄ¶ÈÁ¿µ¥Î»¡£
Óï·¨
object.ScaleMode [= value]
ScaleMode ÊôÐÔµÄÓï·¨°üº¬ÏÂÃ沿·Ö£º
²¿·Ö ÃèÊö
Object ¶ÔÏó±í´ïʽ£¬ÆäÖµÊÇ¡°Ó¦ÓÃÓÚ¡±ÁбíÖеÄÒ»¸ö¶ÔÏó¡£
Value Ò»¸öÖ¸¶¨¶ÈÁ¿µ¥Î»µÄÕûÊý£¬¡°ÉèÖÃÖµ¡±ÖÐÓÐÏêϸÃèÊö¡£
ÉèÖÃÖµ
value µÄÉèÖÃֵΪ£º
³£Êý ÉèÖÃÖµ ÃèÊö
VbUser 0 Ö¸³ö ScaleHeight¡¢ScaleWidth¡¢ScaleLeft ºÍ ScaleTop ÊôÐÔÖеÄÒ»¸ö»ò¶à¸ö±»ÉèÖÃΪ×Ô¶¨ÒåµÄÖµ¡£
VbTwips 1 £¨È±Ê¡Öµ£©ç¾£¨Ã¿Âß¼Ó¢´çΪ 1440 ç¾£»Ã¿Âß¼ÀåÃ×Ϊ 567 ¸öç¾£©¡£
VbPoints 2 °õ£¨Ã¿Âß¼Ó¢´çΪ 72 ¸ö°õ£©¡£
VbPixels 3 ÏñËØ£¨¼àÊÓÆ÷»ò´òÓ¡»ú·Ö±æÂʵÄ×îСµ¥Î»£©¡£
VbCharacters 4 ×Ö·û£¨Ë®Æ½Ã¿¸öµ¥Î»=120 ç¾£»´¹Ö±Ã¿¸öµ¥Î»=240 羡££©
VbInches 5 Ó¢´ç¡£
VbMillimeters 6 ºÁÃס£
VbCentimeters 7 ÀåÃס£
VbHimetric 8 HiMetric
VbContainerPosition 9 ¿Ø¼þÈÝÆ÷ʹÓõĵ¥Î»£¬¾ö¶¨¿Ø¼þλÖá£
VbContainerSize 10 ¿Ø¼þÈÝÆ÷ʹÓõĵ¥Î»£¬¾ö¶¨¿Ø¼þµÄ´óС¡£
Çë½ÌһϣºÎÒÓÃvbдÁËÒ»¸öµ÷ÓÃIllustratorµÄ²âÊÔ³ÌÐò£¬´úÂëºÜ¼òµ¥£ºPrivate Sub Command1_Click()
Dim app As New Illustrator.Application
Dim doc As Illustrator.Document
Dim thislayer As Illustrator.Layer ......
ÎÒÓÐ×Ô¶¯Éú³ÉÐòÁкŵijÌÐò£¬µ«ÊÇÔõô¸ú´ò°üºóµÄ°²×°³ÌÐò½áºÏÔÚÒ»Æð£¬ÔÚ°²×°Ê±ÌáʾÓû§ÊäÈëÐòÁкţ¬ÕýÈ·ºóÔÙ¼ÌÐø°²×°£¿£¿£¿
·½·¨1£ºÄã¿ÉÒÔÔÚÔËÐгÌÐòºóÊäÈëÐòÁкÅ×¢²á£¬ºÜ¶àÈí¼þ¶¼ÊÇÕâÑùµÄ¡£
·½·¨2£ºÊ¹ÓÃSetu ......