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
Ïà¹ØÎÊ´ð£º
ÎÒÓÃDelphiдÁËÒ»¸öDLL, DLLÀïÓÐMDIµÄ×Ó´°Ìå,DLL³õʼ»¯Ê± ´«µÝµ÷ÓÃÕßµÄTApplication¸øDLL, ÔÚDelphi7Öе÷ÓÃÒѾͨ¹ý,µ«ÊDz»ÖªµÀÔÚVBÖÐÓÐÎÞTApplication¶ÔÓ¦ÀàÐÍ, ÊÇ·ñÄÜÔÚVBÖе÷ÓÃ?
ÄãºÃ£¬ÓÃinstance²»ÊǾͿÉÒÔÁË ......
±ÈÈç½ø³Ì¼ÓÔØеijÌÐò¡£
ÔÚÆäÔËÐÐ֮ǰ×èÖ¹¡£
È»ºóÔÊÐíºó·ÅÐС£
±ÈÈç³ÌÐòÖ÷Îļþ·¾¶ÊÇc:\test\test.exe£¬½¨Á¢ÄÚÈÝÈÎÒâµÄÎļþc:\test\test.exe.manifest¡£
¾ÍÊDz»ÖªµÀ³ÌÐòÎļþ·¾¶¡£
ÉèÖ ......
¾Ý˵javaÓïÑÔÊÇÕâÑùµÄ£¬ÄÇVBÄØ£¿
byte[] b(byte)0x62,(byte)0x11,(byte)0x72,(byte)0x31};
try {
System.out.println(new String(b,"UTF-16"));
} catch (UnsupportedEnco ......