Ò׽ؽØͼÈí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

vb´òÓ¡»úÉèÖÃ

Èç¹ûÊÇÏÖÔÚÎÒÓÐA¡¢BÁ½Ì¨´òÓ¡»ú£¬AÊǵ±Ç°ÏµÍ³Ä¬ÈÏʹÓõĴòÓ¡»ú£¨HP LaserJet 5000 Series PCL£©£¬ÎÒÏÖÔÚ³ÌÐòÖÐÓиö±í´òӡʱÏëʹÓÃB»ú£¨hp LaserJet 1010£©£¬»¹²»ÄܸıäϵͳµÄĬÈÏÉ趨£¬¸ÃÈçºÎ´¦Àí

ÎÒÔÚ´òÓ¡±í¸ñʱ ÓÃPrinter.DeviceName = "hp LaserJet 1010"ʱÔËÐÐÕý³£ µ«ÊDZàÒëʱ±¨´í£¨´íÎóµÄ²ÎÊýºÅ»òÎÞЧÊôÐÔÖµ£©ÇëÎÊʲôԭÒò
°ï¶¥


Ç°ÌáÊÇÄãµÃÖªµÀÄãҪʹÓõĴòÓ¡»úµÄÃû³Æ
ÕâÑù²¢²»¸Ä±äϵͳµÄĬÈÏ´òÓ¡»ú
VB code:

Dim p As Printer
For Each p In Printers

If p.DeviceName = "Foxit PDF Printer" Then
Set Printer = p
Exit For
End If

Next




Ïà¹ØÎÊ´ð£º

VBÖÐÓÐÎÞTApplication¶ÔÓ¦ÀàÐÍ

ÎÒÓÃDelphiдÁËÒ»¸öDLL, DLLÀïÓÐMDIµÄ×Ó´°Ìå,DLL³õʼ»¯Ê± ´«µÝµ÷ÓÃÕßµÄTApplication¸øDLL, ÔÚDelphi7Öе÷ÓÃÒѾ­Í¨¹ý,µ«ÊDz»ÖªµÀÔÚVBÖÐÓÐÎÞTApplication¶ÔÓ¦ÀàÐÍ, ÊÇ·ñÄÜÔÚVBÖе÷ÓÃ?
ÄãºÃ£¬ÓÃinstance²»ÊǾͿÉÒÔÁË&# ......

VBÈçºÎ×èֹij³ÌÐòÔËÐС££¿

±ÈÈç½ø³Ì¼ÓÔØеijÌÐò¡£

ÔÚÆäÔËÐÐ֮ǰ×èÖ¹¡£

È»ºóÔÊÐíºó·ÅÐС£


±ÈÈç³ÌÐòÖ÷Îļþ·¾¶ÊÇc:\test\test.exe£¬½¨Á¢ÄÚÈÝÈÎÒâµÄÎļþc:\test\test.exe.manifest¡£

¾ÍÊDz»ÖªµÀ³ÌÐòÎļþ·¾¶¡£

ÉèÖ ......

vb ÈçºÎ½«Ê®Áù½øÖÆUTF-8ת»»Îªºº×Ö

¾Ý˵javaÓïÑÔÊÇÕâÑùµÄ£¬ÄÇVBÄØ£¿

byte[] b(byte)0x62,(byte)0x11,(byte)0x72,(byte)0x31};
  try {
System.out.println(new String(b,"UTF-16"));
  } catch (UnsupportedEnco ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ