1.

Solve : Printing Excel files with .bat files?

Answer» <html><body><p>Is there a way to automatically <a href="https://interviewquestions.tuteehub.com/tag/print-21288" style="font-weight:bold;" target="_blank" title="Click to know more about PRINT">PRINT</a> a spread sheet from an Excel file with a batch (.bat) file?do you <a href="https://interviewquestions.tuteehub.com/tag/want-1448756" style="font-weight:bold;" target="_blank" title="Click to know more about WANT">WANT</a> to print to a printer? or just print the data to screen.<br/>here's a vbscript to print to screen.<br/>Code: <a>[Select]</a>Option Explicit<br/>Dim objExcel,excelPath,worksheetCount<br/>Dim counter,currentWorkSheet, usedRowsCount,row<br/>Dim column,top, left, Cells, curCol,curRow,<a href="https://interviewquestions.tuteehub.com/tag/word-244271" style="font-weight:bold;" target="_blank" title="Click to know more about WORD">WORD</a><br/>excelPath = "C:\test\Book1.xls"<br/>Set objExcel = CreateObject("Excel.Application")<br/>objExcel.Workbooks.open excelPath, <a href="https://interviewquestions.tuteehub.com/tag/false-456374" style="font-weight:bold;" target="_blank" title="Click to know more about FALSE">FALSE</a>, true<br/>workSheetCount = objExcel.Worksheets.Count<br/>For counter = <a href="https://interviewquestions.tuteehub.com/tag/1-236780" style="font-weight:bold;" target="_blank" title="Click to know more about 1">1</a> to workSheetCount<br/> Set currentWorkSheet = objExcel.ActiveWorkbook.Worksheets(counter)<br/> usedColumnsCount = currentWorkSheet.UsedRange.Columns.Count<br/> usedRowsCount = currentWorkSheet.UsedRange.Rows.Count<br/> top = currentWorksheet.UsedRange.Row<br/> left = currentWorksheet.UsedRange.Column<br/> Set Cells = currentWorksheet.Cells<br/> For row = 0 to (usedRowsCount-1)<br/> For column = 0 to usedColumnsCount-1<br/> curRow = row+top<br/> curCol = column+left <br/> word = Cells(curRow,curCol).Value<br/> WScript.Echo (word)<br/> Next<br/> Next<br/> Set currentWorkSheet = Nothing<br/>Next<br/>objExcel.Workbooks(1).Close<br/>objExcel.Quit<br/>Set currentWorkSheet = Nothing<br/>Set objExcel = Nothing<br/></p></body></html>


Discussion

No Comment Found

Related InterviewSolutions