hadgph
جمعه 30 تیر 1391, 10:59 صبح
سلام دوستان
من برنامه ای نوشته ام که یک فایل ورد داخل برنامه ایجاد می کنه و ازش پرینت می گیره و از دستور زیر برای پرینتش استفاده می کنم
Word.Application.PrintOut(FileName:="", Range:=WdPrintOutRange.wdPrintAllDocument, Item:= _
WdPrintOutItem.wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=WdPrintOutPages.wdPrintAllPages, _
ManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile:= _
False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
PrintZoomPaperHeight:=0)
مشکلی که پیش اومده اینه که برای تعداد صفحات زیاد، قبل از اینکه تمام صفحات به پرینتر ارسال بشه دستور زیر که بلافاصله بعد از دستور بالا اومده اجرا می شه که باعث می شه فایل وردی که ایجاد شده، بسته بشه.
Word.Documents.Application.Quit(SaveChanges:=False )
Word = Nothing
دوستان پیشنهادی برای رفع این مشکل دارند؟:لبخندساده:
من برنامه ای نوشته ام که یک فایل ورد داخل برنامه ایجاد می کنه و ازش پرینت می گیره و از دستور زیر برای پرینتش استفاده می کنم
Word.Application.PrintOut(FileName:="", Range:=WdPrintOutRange.wdPrintAllDocument, Item:= _
WdPrintOutItem.wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=WdPrintOutPages.wdPrintAllPages, _
ManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile:= _
False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
PrintZoomPaperHeight:=0)
مشکلی که پیش اومده اینه که برای تعداد صفحات زیاد، قبل از اینکه تمام صفحات به پرینتر ارسال بشه دستور زیر که بلافاصله بعد از دستور بالا اومده اجرا می شه که باعث می شه فایل وردی که ایجاد شده، بسته بشه.
Word.Documents.Application.Quit(SaveChanges:=False )
Word = Nothing
دوستان پیشنهادی برای رفع این مشکل دارند؟:لبخندساده: