pcsoft.fr.windevCopyright 2026, PC SOFT16 Jan 2020 15:48:14 Z14 Jan 2020 21:24:40 ZBonjour Je viens ici pour demander de l'aide à de nobles collègues, ci-dessous j'ai un code en C # qui vous permet d'obtenir un fichier de type prn qui est décrit à la fin du post et ce code envoie à l'imprimante Zebra. Je me demande si quelqu'un ici dans le forum pourrait m'aider à convertir le code en C # en windev? J'ai l'imprimante ici pour tester, j'apprécie le support, si nous pouvons convertir j'irai au support en avant à l'équipe de développement créer une fonction avec ce code intégré. Hi, I come here to ask the noble colleagues for help, below I have a code in C # that allows you to get a file of type prn that is described at the end of the post and this code sends to the printer Zebra. I wonder if anyone here in the forum could help me convert the code in C # to windev? I have the printer here to test, I appreciate the support, if we can convert I will go to support forward to the development team create a function with this code embedded. Olá Venho aqui pedir ajuda aos nobres colegas, abaixo tenho um coódigo em c# que permite pegar um arquivo do tipo prn que esta descrito no final do post e esse codigo manda para a impressora Zebra. Gostaria de saber se alguem aqui no forum poderia me ajudar a converter o codigo em c# para windev? Tenho a impressora aqui para testar, agradeço o apoio, se conseguirmos converter vou passar para o suporte encaminhar para o time de desenvolvimento criar uma função com esse codigo embarcado. CODE C# - Read File PRN Zebra and Print (Imprimir arquivo .PRN para etiquetar com Windev na impressora Zebra) [code:wl] RawPrinterHelper.SendStringToPrinter(pd.PrinterSettings.PrinterName, sb.ToString()); // Etiquetas public class RawPrinterHelper { // Structure and API declarions: [StructLayout(LayoutKind.Sequential, CharSet = CharSet.Ansi)] public class DOCINFOA { [MarshalAs(UnmanagedType.LPStr)] public string pDocName; [MarshalAs(UnmanagedType.LPStr)] public string pOutputFile; [MarshalAs(UnmanagedType.LPStr)] public string pDataType; } [DllImport("winspool.Drv", EntryPoint = "OpenPrinterA", SetLastError = true, CharSet = CharSet.Ansi, ExactSpelling = true, CallingConvention = CallingConvention.StdCall)] public static extern bool OpenPrinter([MarshalAs(UnmanagedType.LPStr)] string szPrinter, out IntPtr hPrinter, IntPtr pd); [DllImport("winspool.Drv", EntryPoint = "ClosePrinter", SetLastError = true, ExactSpelling = true, CallingConvention = CallingConvention.StdCall)] public static extern bool ClosePrinter(IntPtr hPrinter); [DllImport("winspool.Drv", EntryPoint = "StartDocPrinterA", SetLastError = true, CharSet = CharSet.Ansi, ExactSpelling = true, CallingConvention = CallingConvention.StdCall)] public static extern bool StartDocPrinter(IntPtr hPrinter, Int32 level, [In, MarshalAs(UnmanagedType.LPStruct)] DOCINFOA di); [DllImport("winspool.Drv", EntryPoint = "EndDocPrinter", SetLastError = true, ExactSpelling = true, CallingConvention = CallingConvention.StdCall)] public static extern bool EndDocPrinter(IntPtr hPrinter); [DllImport("winspool.Drv", EntryPoint = "StartPagePrinter", SetLastError = true, ExactSpelling = true, CallingConvention = CallingConvention.StdCall)] public static extern bool StartPagePrinter(IntPtr hPrinter); [DllImport("winspool.Drv", EntryPoint = "EndPagePrinter", SetLastError = true, ExactSpelling = true, CallingConvention = CallingConvention.StdCall)] public static extern bool EndPagePrinter(IntPtr hPrinter); [DllImport("winspool.Drv", EntryPoint = "WritePrinter", SetLastError = true, ExactSpelling = true, CallingConvention = CallingConvention.StdCall)] public static extern bool WritePrinter(IntPtr hPrinter, IntPtr pBytes, Int32 dwCount, out Int32 dwWritten); // SendBytesToPrinter() // When the function is given a printer name and an unmanaged array // of bytes, the function sends those bytes to the print queue. // Returns true on success, false on failure. public static bool SendBytesToPrinter(string szPrinterName, IntPtr pBytes, Int32 dwCount) { Int32 dwError = 0, dwWritten = 0; IntPtr hPrinter = new IntPtr(0); DOCINFOA di = new DOCINFOA(); bool bSuccess = false; // Assume failure unless you specifically succeed. di.pDocName = "My C#.NET RAW Document"; di.pDataType = "RAW"; // Open the printer. if (OpenPrinter(szPrinterName.Normalize(), out hPrinter, IntPtr.Zero)) { // Start a document. if (StartDocPrinter(hPrinter, 1, di)) { // Start a page. if (StartPagePrinter(hPrinter)) { // Write your bytes. bSuccess = WritePrinter(hPrinter, pBytes, dwCount, out dwWritten); EndPagePrinter(hPrinter); } EndDocPrinter(hPrinter); } ClosePrinter(hPrinter); } // If you did not succeed, GetLastError may give more information // about why not. if (bSuccess == false) { dwError = Marshal.GetLastWin32Error(); } return bSuccess; } public static bool SendFileToPrinter(string szPrinterName, string szFileName) { // Open the file. FileStream fs = new FileStream(szFileName, FileMode.Open); // Create a BinaryReader on the file. BinaryReader br = new BinaryReader(fs); // Dim an array of bytes big enough to hold the file's contents. Byte[] bytes = new Byte[fs.Length]; bool bSuccess = false; // Your unmanaged pointer. IntPtr pUnmanagedBytes = new IntPtr(0); int nLength; nLength = Convert.ToInt32(fs.Length); // Read the contents of the file into the array. bytes = br.ReadBytes(nLength); // Allocate some unmanaged memory for those bytes. pUnmanagedBytes = Marshal.AllocCoTaskMem(nLength); // Copy the managed byte array into the unmanaged array. Marshal.Copy(bytes, 0, pUnmanagedBytes, nLength); // Send the unmanaged bytes to the printer. bSuccess = SendBytesToPrinter(szPrinterName, pUnmanagedBytes, nLength); // Free the unmanaged memory that you allocated earlier. Marshal.FreeCoTaskMem(pUnmanagedBytes); return bSuccess; } public static bool SendStringToPrinter(string szPrinterName, string szString) { IntPtr pBytes; Int32 dwCount; // How many characters are in the string? dwCount = szString.Length; // Assume that the printer is expecting ANSI text, and then convert // the string to ANSI text. pBytes = Marshal.StringToCoTaskMemAnsi(szString); // Send the converted ANSI string to the printer. SendBytesToPrinter(szPrinterName, pBytes, dwCount); Marshal.FreeCoTaskMem(pBytes); return true; } } [/code] Example file PRN Zebra 3 label [code:wl] I8,A,001 Q152,024 q863 rN S5 D10 ZT JF O R6,0 f100 N A19,8,0,1,1,2,N,"NOVALGINA 300MG/ML" A19,32,0,1,1,2,N,"Lab: BAYER" A19,56,0,1,1,2,N,"L:10000 - V:15/01/2020" B18,90,0,1,2,6,40,N,"DXQZWVFJ" A299,8,0,1,1,2,N,"NOVALGINA 300MG/ML" A299,32,0,1,1,2,N,"Lab: BAYER" A299,56,0,1,1,2,N,"L:10000 - V:15/01/2020" B298,90,0,1,2,6,40,N,"DXQZWVFJ" A578,8,0,1,1,2,N,"NOVALGINA 300MG/ML" A578,32,0,1,1,2,N,"Lab: BAYER" A578,56,0,1,1,2,N,"L:10000 - V:15/01/2020" B577,90,0,1,2,6,40,N,"DXQZWVFJ" P3 [/code] -- Adriano José Boller ______________________________________________ Consultor e Representante Oficial da PcSoft no Brasil +55 (41) 99949 1800 adrianoboller@gmail.com skype: adrianoboller http://wxinformatica.com.br/30WEBDEVfr_FRhttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/236189-print-file-prn-label-with-windev-printer-zebra/read.awpmoderateur@pcsoft.fr (El moderador)webmaster@pcsoft.fr (El webmaster)Bollerpcsoft.fr.windevhttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/236189-print-file-prn-label-with-windev-printer-zebra-236283/read.awp16 Jan 2020 15:48:14 ZVersão final esta no repositório https://repository.windev.com/resource.awp?file_id=281474976710879;zebra-util [code:wl] …https://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/236189-print-file-prn-label-with-windev-printer-zebra-236283/read.awphttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/236189-print-file-prn-label-with-windev-printer-zebra-236283/read.awpPrint file .PRN to Label with Windev in Printer ZebraBollerpcsoft.fr.windevhttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/236189-print-file-prn-label-with-windev-printer-zebra-236244/read.awp15 Jan 2020 21:37:39 ZImprimindo diversas etiquetas [code:wl] // Summary: <specify the procedure action> // Syntax: //Imprimir_Etiqueta_Zebra_To…https://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/236189-print-file-prn-label-with-windev-printer-zebra-236244/read.awphttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/236189-print-file-prn-label-with-windev-printer-zebra-236244/read.awpPrint file .PRN to Label with Windev in Printer ZebraBollerpcsoft.fr.windevhttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/236189-print-file-prn-label-with-windev-printer-zebra-236243/read.awp15 Jan 2020 19:37:00 Z[code:wl] // Summary: <specify the procedure action> // Syntax: //Imprimir_Etiqueta_Zebra (<LINHA_01>, <LINHA_02>, <LINHA_03>…https://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/236189-print-file-prn-label-with-windev-printer-zebra-236243/read.awphttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/236189-print-file-prn-label-with-windev-printer-zebra-236243/read.awpPrint file .PRN to Label with Windev in Printer ZebraBollerpcsoft.fr.windevhttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/236189-print-file-prn-label-with-windev-printer-zebra-236239/read.awp15 Jan 2020 16:03:23 ZPatrice and Christophe!!! :merci: Thank you so much for helping me ok -- Adriano José Boller ________________________…https://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/236189-print-file-prn-label-with-windev-printer-zebra-236239/read.awphttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/236189-print-file-prn-label-with-windev-printer-zebra-236239/read.awpPrint file .PRN to Label with Windev in Printer ZebraBollerpcsoft.fr.windevhttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/236189-print-file-prn-label-with-windev-printer-zebra-236238/read.awp15 Jan 2020 15:57:50 Z[code:wl] PROCEDURE WD_Gera_Etiqueta_Zebra(LINHA_01,LINHA_02,LINHA_03,CODBAR,QtdeEtiquetas) sEtiqueta_Zebra is string = [ I…https://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/236189-print-file-prn-label-with-windev-printer-zebra-236238/read.awphttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/236189-print-file-prn-label-with-windev-printer-zebra-236238/read.awpPrint file .PRN to Label with Windev in Printer ZebraBollerpcsoft.fr.windevhttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/236189-print-file-prn-label-with-windev-printer-zebra-236236/read.awp15 Jan 2020 15:32:19 ZFONTE DOWNLOAD https://repository.windev.com/publish.awp?file_id=281474976710878;label-printing-via-prn-file-zebra-printer-wi…https://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/236189-print-file-prn-label-with-windev-printer-zebra-236236/read.awphttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/236189-print-file-prn-label-with-windev-printer-zebra-236236/read.awpPrint file .PRN to Label with Windev in Printer ZebraBollerpcsoft.fr.windevhttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/236189-print-file-prn-label-with-windev-printer-zebra-236235/read.awp15 Jan 2020 15:30:21 Zhttps://hostimage.windev.io/images/zb_aa9a28197a3a6fcee51487cc1e325409.png -- Adriano José Boller _________________________…https://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/236189-print-file-prn-label-with-windev-printer-zebra-236235/read.awphttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/236189-print-file-prn-label-with-windev-printer-zebra-236235/read.awpPrint file .PRN to Label with Windev in Printer ZebraBollerpcsoft.fr.windevhttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/236189-print-file-prn-label-with-windev-printer-zebra-236234/read.awp15 Jan 2020 15:26:30 ZSolução final Sobrecarga de método, passando ou nao o nome da impressora ou lendo de um arquivo ini. [code:wl] PROCEDURE …https://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/236189-print-file-prn-label-with-windev-printer-zebra-236234/read.awphttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/236189-print-file-prn-label-with-windev-printer-zebra-236234/read.awpPrint file .PRN to Label with Windev in Printer ZebraBollerpcsoft.fr.windevhttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/236189-print-file-prn-label-with-windev-printer-zebra-236231/read.awp15 Jan 2020 15:15:52 Z[code:wl] I8,A,001 Q152,024 q863 rN S5 D10 ZT JF O R6,0 f100 N A19,8,0,1,1,2,N,"NOVALGINA 500MG/ML" A19,32,0,1…https://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/236189-print-file-prn-label-with-windev-printer-zebra-236231/read.awphttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/236189-print-file-prn-label-with-windev-printer-zebra-236231/read.awpPrint file .PRN to Label with Windev in Printer ZebraBollerpcsoft.fr.windevhttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/236189-print-file-prn-label-with-windev-printer-zebra-236230/read.awp15 Jan 2020 15:15:03 Z:merci: [code:wl] PROCEDURE WD_SendFileToPrinter(filename_to_print, verbose_mode is boolean=True) : boolean PRIVATE _res…https://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/236189-print-file-prn-label-with-windev-printer-zebra-236230/read.awphttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/236189-print-file-prn-label-with-windev-printer-zebra-236230/read.awpPrint file .PRN to Label with Windev in Printer Zebrapterrierpcsoft.fr.windevhttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/236189-print-file-prn-label-with-windev-printer-zebra-236229/read.awp15 Jan 2020 15:10:43 ZNo need to use DotNET to deal with the core win32 API, see the MSDN documentation there: https://docs.microsoft.com/en-us/windo…https://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/236189-print-file-prn-label-with-windev-printer-zebra-236229/read.awphttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/236189-print-file-prn-label-with-windev-printer-zebra-236229/read.awpPrint file .PRN to Label with Windev in Printer ZebraDELFI INFO-Chrispcsoft.fr.windevhttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/236189-print-file-prn-label-with-windev-printer-zebra-236218/read.awp15 Jan 2020 12:48:16 ZHi Adriano, you could try this code, it replace your C# function 'SendFileToPrinter(string szPrinterName, string szFileName)…https://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/236189-print-file-prn-label-with-windev-printer-zebra-236218/read.awphttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/236189-print-file-prn-label-with-windev-printer-zebra-236218/read.awpPrint file .PRN to Label with Windev in Printer ZebraBollerpcsoft.fr.windevhttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/236189-print-file-prn-label-with-windev-printer-zebra-236214/read.awp15 Jan 2020 12:09:43 Zhttps://hostimage.windev.io/images/z1_595de0ee418dc77180f64e2be90a3f70.jpg -- Adriano José Boller _________________________…https://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/236189-print-file-prn-label-with-windev-printer-zebra-236214/read.awphttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/236189-print-file-prn-label-with-windev-printer-zebra-236214/read.awpPrint file .PRN to Label with Windev in Printer Zebra